?try
?optim
?+命令 看帮助就行了
看教程太慢了；如果有编程基础并且知道应该用那个命令的话，看帮助足够了；
先算每列的均值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
