data("swissRain")
swissRes = lgm(swissRain, locations=20, formula="rain",
covariates=swissAltitude, boxcox=0.5, fixBoxcox=TRUE,
rough=1, fixRough=TRUE,
aniso=TRUE, nugget=0, fixNugget=TRUE,
nugget.in.prediction=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"))
theMap = openmap(gadm,zoom=7, type="mapquest")#"osm-transport")
library(RColorBrewer)
par(mar=c(0,0,0,3))
plot(gadm)
plot(theMap, add=TRUE)
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