library(stUPscales)
library(spacetime)
data(HS_RY20111216_stfdf)
sample.idx <- seq.default(from = 1, to = 25, by = 1)
sample <- HS_RY20111216_stfdf[, sample.idx]
stplot(sample,
scales=list(draw=TRUE),
key.space="right", colorkey=TRUE,
main="5-minute DWD sample precipitation radar imagery non-calibrated in STFDF format",
cex=.74, par.strip.text=list(cex=.74))
Run the code above in your browser using DataLab