## The following example takes some time and download a large amount of data (~ 1 Gb).
## It will therefore not be run unless you uncomment it
### We fit the models for Germany:
# GNIPDataDEagg <- prepsources(data = GNIPDataDE)
#
# GermanFit <- isofit(data = GNIPDataDEagg,
# mean_model_fix = list(elev = TRUE, lat.abs = TRUE))
#
### We prepare the structural raster:
# StrRaster <- prepraster(raster = ElevRasterDE,
# isofit = GermanFit,
# aggregation_factor = 0)
#
### We download the precipitation data:
# temp_folder <- tempdir()
# getprecip(path = temp_folder)
#
### We prepare the raster brick with all the precipitation data:
# PrecipitationBrick <- prepcipitate(path = temp_folder,
# raster = StrRaster)
#
### We plot the precipitation data:
# levelplot(PrecipitationBrick)
Run the code above in your browser using DataLab