# NOT RUN {
# Locate and read the polar volume example file
pvolfile <- system.file("extdata", "volume.h5", package = "bioRad")
pvol <- read_pvolfile(pvolfile)
# Get elevation angles
get_elevation_angles(pvol)
# Extract the scan closest to 3 degrees elevation (= 2.5)
scan <- get_scan(pvol, 3)
# Get summary info
scan
# }
Run the code above in your browser using DataLab