# NOT RUN {
# download a NEXRAD file, save as KBGM_example
download.file(paste("https://noaa-nexrad-level2.s3.amazonaws.com/",
"2019/10/01/KBGM/KBGM20191001_000542_V06",
sep = ""
), "~/KBGM_example")
# calculate MistNet segmentation:
mistnet_pvol <- apply_mistnet("~/KBGM_example")
# print summary info for the segmented elevation scan at 0.5 degree,
# verify new parameters BIOLOGY, WEATHER, BACKGROUND and CELL have been added:
my_scan <- get_scan(mistnet_pvol, 0.5)
# project the scan as a ppi:
my_ppi <- project_as_ppi(my_scan, range_max = 100000)
# plot the reflectivity parameter:
plot(my_ppi, param = "DBZH")
# plot the MistNet class probability [0-1] for weather
plot(my_ppi, param = "WEATHER")
# plot the MistNet class probability [0-1] for biology
plot(my_ppi, param = "BIOLOGY")
# plot the final segmentation result, with values >1 indicating
# areas classified as weather, and value 1 pixels that fall within an
# additional 5 km fringe around weather areas.
plot(my_ppi, param = "CELL")
# clean up:
file.remove("~/KBGM_example")
# }
Run the code above in your browser using DataLab