# Locate and read the polar volume example file
pvolfile <- system.file("extdata", "volume.h5", package = "bioRad")
example_pvol <- read_pvolfile(pvolfile)
# Get the elevations angles of the scans in the pvol
get_elevation_angles(example_pvol)
# Extract the first scan
scan <- example_pvol$scans[[1]]
# Get the elevation angle of that scan
get_elevation_angles(scan)
Run the code above in your browser using DataLab