require(minqa)
data(croatiadb)
coordinates(croatiadb) <- ~x+y
if (FALSE) {
idwST.opt <- bobyqa(c(1, 2), idwST.cv1, lower=c(0,0.1), upper=c(2,4), formula=MTEMP~1,
data=croatiadb[,1:2], n.neigh=10, progres=F, control=list(maxfun=50))
# obtained with optimal values previously estimated (33 iterations)
idwST.cv1(c(1.00538675066736,1.95853920335545), MTEMP~1, data=croatiadb[,1:2], n.neigh=10,
progress=T)
}
Run the code above in your browser using DataLab