R语言编写求最小值函数

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]) } 我想编写一个求最小值的函数，但是这个运行却不对，谁能告诉我应该怎样修改？