R語(yǔ)言編寫求最小值函數(shù)
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]) } 我想編寫一個(gè)求最小值的函數(shù),但是這個(gè)運(yùn)行卻不對(duì),誰(shuí)能告訴我應(yīng)該怎樣修改?
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]) } 我想編寫一個(gè)求最小值的函數(shù),但是這個(gè)運(yùn)行卻不對(duì),誰(shuí)能告訴我應(yīng)該怎樣修改?
2017-03-21
舉報(bào)
2017-03-29
mymin <- function(x){sort(x)[1]},這樣可以實(shí)現(xiàn)最小值的提取