unzip(system.file("weisseritz.zip", package="wasim"))
sd.grid <- read.grid( file= "weisseritz/sd__ww100.grd") # Datumsreihe heisst jetzt d.datum
p.grid(sd.grid,
color.palette=topo.colors,
zlim=c(-20,20),
main="Saturation deficit at the Weisseritz")
Run the code above in your browser using DataLab