R语言编写求最小值函数？

Question

mymin<-function(x){

 

  n<-length(x)

  for(i in 1:n-1){

    if(x[i]<x[i+1]){

      x[i+1]<-x[i]

    }

  }

  return(x[n])

}

这是我编写的求最小值函数，但是运行结果却不对，显示错位是这个：Error in if (x[i] < x[i + 1]) { : argument is of length zero，谁能告诉我错在哪里？怎样修改？

Answer 1

                               这样一直循环只会比较相邻的值， for(i in 1:length(x)){ min<-x[1] if(min>x[i+1]) min<-x[i+1] return(min) } 手机打的，好难过，基本就是这样，有问题再说         用电脑测试了一下tmin <- function(x){  min <- x[1];  for(i in 2:length(x))    if(min>x[i])      min <- x[i];    return(min);}c1 <- c(7,9,2,1,5,0,6,2)tmin(c1)