# 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")
if (FALSE) {
# 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