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]) } 我想編寫一個求最小值的函數，但是這個運行卻不對，誰能告訴我應該怎樣修改？
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]) } 我想編寫一個求最小值的函數，但是這個運行卻不對，誰能告訴我應該怎樣修改？
2017-03-21
舉報
2017-03-29
mymin <- function(x){sort(x)[1]}，這樣可以實現最小值的提取