meanMat<-matrix(1/6,1,6)%*%aMat
再算是不是大于50
largeMat<-meanMat>50
largeMat<-largeMat*1
另外你的replace写成relace了。
#产生0-1内的10个随机数，扩大100倍，然后取整。（自己改成100就行了）#就是0-100内的10个随机整数
x <- as.integer(runif(10)*100)
x
for(i in 1:(length(x)-1)){
for(j in 1:(length(x)-i)){
if(x[j]>x[j+1]){
temp <- x[j]
x[j] <- x[j+1]
x[j+1] <- temp
}
}
}
x
