# NOT RUN {
data(carlinadata)
coords <- carlinadata[ ,4:5]
# Upscaling of smooth components
upscale(carlinadata$land.use, coord = coords)
upscale(carlinadata$aridity, coord = coords,pad=0,
color.maps = TRUE)
# }
Run the code above in your browser using DataLab