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)