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])}這是我編寫(xiě)的求最小值函數(shù)，但是運(yùn)行結(jié)果卻不對(duì)，顯示錯(cuò)位是這個(gè)：Error in if (x[i] < x[i + 1]) { : argument is of length zero，誰(shuí)能告訴我錯(cuò)在哪里？怎樣修改？