||
分以下三个步骤进行。
1,定义包含五个变量的函数:
TestF1=function(x,j,m,T,Tnew){
#select parameter by order of magnitude
...
xnew=Tnew[1:(d-1),]
ynew =Tnew[d,]
new <- predict(svmr, t(xnew))
MseCross=mean(abs(ynew-new))^0.5
return(MseCross)
}
2,给j,m,t(ST),t(T)赋值
fn2=function(x) {TestF1(x,j,m,t(ST),t(T))}
3,调用optim,对x优化,求最优
temp <- optim(X[,i],fn2,gr,...,method="L-BFGS-B",lower=lower,
upper=upper,control=p.hcontrol)
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-3-29 10:31
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社