# NOT RUN {
x <- ossfim(1:15,1:15, model = vgm(1,"Exp",15))
library(lattice)
levelplot(kriging.se~spacing+block.size, x,
main = "Ossfim results, variogram 1 Exp(15)")
# }
# NOT RUN {
# if you wonder about the decrease in the upper left corner of the graph,
# try the above with nmax set to 100, or perhaps 200.
# }
Run the code above in your browser using DataLab