data(preci)
coordinates(preci)<-~x+y
# optimizing eta
graph.rbf(prec~1, preci, eta.opt=TRUE, rho.opt=FALSE, n.neigh=9, func="TPS",
np=40, eta.dmax=0.2, P.T=TRUE)
# optimizing rho
graph.rbf(prec~x+y, preci, eta.opt=FALSE, rho.opt=TRUE, n.neigh=9, func="M",
np=20, rho.dmax=2, P.T=TRUE)
# optimizing eta and rho
tps.lo <- graph.rbf(prec~1, preci, eta.opt=TRUE, rho.opt=TRUE, n.neigh=9, func="TPS", np=10,
eta.dmax=2, rho.dmax=2, P.T=TRUE)
tps.lo[[1]] # best combination of eta and rho obtained
tps.lo[[2]] # lattice of RMSPE
# lattice of RMSPE values associated with a range of eta and rho, without optimization
tps.l <- graph.rbf(prec~1, preci, eta.opt=FALSE, rho.opt=FALSE, n.neigh=9, func="TPS",
np=10, eta.dmax=2, rho.dmax=2, P.T=TRUE)
tps.l[[1]] # best combination of eta and rho obtained
tps.l[[2]] # lattice of RMSPERun the code above in your browser using DataLab