if语句运行错误

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

代码的一部分：X是一个矩阵

x=100000000;

for(i in 2:nrow(X)){

for(j in 1:i-1){

xba<-(X[i,]+X[j,])/2;

W[i,j]=(X[i,]-xba)%*%t(X[i,]-xba)+(X[j,]-xba)%*%t(X[j,]-xba);

if(x>=W[i,j]){

x=W[i,j]               #求最小值及其位置

x0=i;

x1=j;

}

想求出W矩阵中最小值及其位置，为什么说if语句运行错误

Error in if (x > W[i, j]) { : argument is of length zero

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：运行错误 argument length Error zero Error

1:i-1   改成1:(i-1)

最开始那个x=100000000是干嘛用的？

R不是C，语句后面不用加；

qoiqpwqr 发表于 2013-11-23 00:44
最开始那个x=100000000是干嘛用的？

就是后面的if 语句要比大小，先给x一个初始值，随便设的，当W矩阵中有比这个数小就替代掉

也许用：which.min（）与min() 相结合，更会简便些：
Colmin<-apply(W,2,min)
I<-which.min(Colmin)
J<-Which.min(W[,I])
W[J,I]即为W中最小值 ，J、I即为行与列的位置。

jgchen1966 发表于 2013-12-1 00:35
也许用：which.min（）与min() 相结合，更会简便些：
Colmin

谢谢！