# NOT RUN {
# locate example volume file:
pvolfile <- system.file("extdata", "volume.h5", package = "bioRad")
# load the file:
example_pvol <- read_pvolfile(pvolfile)
# calculate a ppi for each elevation scan
my_ppis <- lapply(example_pvol$scans, project_as_ppi)
# overlay the ppi's, calculating the maximum value observed
# across the available scans at each geographic location
my_composite <- composite_ppi(my_ppis, method="max")
# }
# NOT RUN {
# download basemap
bm <- download_basemap(my_composite)
# plot the calculated max product on the basemap
map(my_composite, bm)
# }
Run the code above in your browser using DataLab