把数据归一化到-1到1之间，提示错误？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我想把一组37行6列的数据每列归一到-1到1之间，代码如下：

x为37行6列的数据框
i1 <- 1:6
j1 <- 1:37
for (i in i1){
  meani <- mean(x[j1, i])
  maxi <- max(x[j1, i])
  mini <- min(x[j1, i])
  for(j in j1){
    x[i,j] <- (x[i,j] - meani)/(maxi - mini)
  }
}


提示错误：Error in `[<-.data.frame`(`*tmp*`, i, j, value = numeric(0)) :
  replacement has length zero

错误什么意思？为什么出现这个错误？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：归一化 数据框 Error mini

你把
x[i,j] <- (x[i,j] - meani)/(maxi - mini) 写错了。
是
x[j,i] <- (x[j,i] - meani)/(maxi - mini)

lww1993 发表于 2014-5-5 16:51
你把
x

是啊，太粗心了，谢谢

我想问一下，您是怎么输出归一化以后的数据呢？能不能告知一下？谢谢

data_scatter <- matrix(data = NA, nrow = 90633, ncol = 41, byrow = FALSE )
for (i in 9:49) {
  data_scatter[,i-8] <- (band_data[,i]-mean(band_data[,i]))/(max(band_data[,i])-min(band_data[,i]))
}  

lijinfollow77 发表于 2016-6-22 21:53
我想问一下，您是怎么输出归一化以后的数据呢？能不能告知一下？谢谢

归一化 公式是(X-Xmin)/（Xmax-Xmin）
网页版SPSSAU可以进行 比较简单

sapply(mat, function(x)  {
     m1 <- min(x, na.rm= T)
     m2 <- max(x, na.rm=T)
     (x - m1) / (m2 - m1)
})