#就是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
R命令行里面?try
?optim
?+命令 看帮助就行了
看教程太慢了;如果有编程基础并且知道应该用那个命令的话,看帮助足够了;
#就是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
R命令行里面?try
?optim
?+命令 看帮助就行了
看教程太慢了;如果有编程基础并且知道应该用那个命令的话,看帮助足够了;