## Not run:
# data(preci)
# coordinates(preci) <- ~x+y
# bobyqa(c(0.5, 0.5), rbf.cv1, lower=c(1e-05,0), upper=c(2,2), formula=prec~x+y, data=preci,
# n.neigh=9, func="TRI")
# # obtained with the optimal values previously estimated
# rbf.cv1(c(0.2126191,0.1454171), prec~x+y, preci, n.neigh=9, func="TRI")
# ## End(Not run)
Run the code above in your browser using DataLab