菜鸟求助R语言,帮帮看这个错在哪里了!急求
mx<-matrix(nrow=2,ncol=2)
z<-array(1:16)
for(k1 in 1:2)
{for(k2 in 1:2)
{for(k3 in 1:2)
{for(k4 in 1:2)
{mx[1,1]=k1;mx[1,2]=k2;
mx[2,1]=k3;mx[2,2]=k4;
for(i in 1:2)
{for(j in 1:2)
{for(k in 1:2)
{if(mx[i,mx[j,k]]!=mx[j,mx[i,k]])
z[i]<-0
else
break
}
}
}
for(m in 1:2)
{if(mx[m,1]!=m&&mx[m,2]!=m)
z[i]<-0
else
break
}
for(n in 1:2)
{if(mx[1,n]!=n&&mx[2,n]!=n)
z[i]<=0
else
break
}
if(z[i]<-0)
print(mx)
else
break
}
}
}
}