# NOT RUN {
require(minqa)
data(croatiadb)
coordinates(croatiadb) <- ~x+y
# }
# NOT RUN {
rbf.im <- bobyqa(c(0.5, 0.5), rbfST.cv1, lower=c(1e-05,0), upper=c(2,2),
formula=MTEMP~X1+X2+X3+X4+X5+X6+X7+X8+X9+X10, data=croatiadb, n.neigh=25,
func="IM", control=list(maxfun=50))
# }
# NOT RUN {
# obtained with the optimal values previously estimated
rbfST.cv1(c(0.847050095690357,0.104157855356128), MTEMP~X1+X2+X3+X4+X5+X6+X7+X8+X9+X10,
croatiadb, n.neigh=25, func="IM")
# }
Run the code above in your browser using DataLab