# NOT RUN {
data("Windarling")
X = Windarling[,c("Easting","Northing")]
Z = compositions::acomp(Windarling[,c(9:12,16)])
gm = make.gmCompositionalGaussianSpatialModel(data=Z, coords=X)
vg = variogram(gm)
md = gstat::vgm(range=30, model="Sph", nugget=1, psill=1)
gs = fit_lmc(v=vg, g=gm, model=md)
# }
# NOT RUN {
v1 = validate(gs, strategy=LeaveOneOut()) # quite slow
# }
# NOT RUN {
vs2 = NfoldCrossValidation(nfolds=sample(1:10, nrow(X), replace=TRUE))
vs2
# }
# NOT RUN {
v2 = validate(gs, strategy=vs2) # quite slow
# }
Run the code above in your browser using DataLab