data("swissRain")
swissRes = lgm(swissRain, locations=20, formula="rain",
covariates=swissAltitude, boxcox=0.5, fixBoxcox=TRUE,
shape=1, fixShape=TRUE,
aniso=FALSE, nugget=0, fixNugget=TRUE,
nuggetInPrediction=FALSE
)
swissRes$summary
plot(swissRes$predict[["predict"]], main="predicted rain")
plot(swissBorder, add=TRUE)
load(url("http://www.filefactory.com/file/frd1mhownd9/n/CHE_adm0_RData"))
library(RColorBrewer)
par(mar=c(0,0,0,3))
plot(gadm)
plot(mask(projectRaster(
swissRes$predict[["predict"]], crs=gadm@proj4string),gadm),
add=T,alpha=0.6, col=brewer.pal(9, "Blues"))
plot(gadm, add=TRUE)
Run the code above in your browser using DataLab