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])}這是我編寫的求最小值函數(shù),但是運行結(jié)果卻不對,顯示錯位是這個:Error in if (x[i] < x[i + 1]) { : argument is of length zero,誰能告訴我錯在哪里?怎樣修改?
R語言編寫求最小值函數(shù)?
qq_闞侃侃_0
2017-03-21 10:51:28