代码的一部分：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