# NOT RUN {
# Get the radar cross section for a vp
vp <- example_vp
rcs(vp)
# Get the radar cross section for a vpts
vpts <- example_vpts
rcs(vpts)
# Get the radar cross section for a vpi
vpi <- integrate_profile(example_vpts)
rcs(vpi)
# }
Run the code above in your browser using DataLab