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，誰能告訴我錯在哪里？怎樣修改？
1 回答
李東岳
TA貢獻10條經驗 獲得超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)
?? ? ? ? ? ? ? ? ??
- 1 回答
- 0 關注
- 3371 瀏覽
添加回答
舉報
0/150
提交
取消