# Set the radar cross section for a vp
vp <- example_vp
rcs(vp) <- 11
# Set the radar cross section for a vpts
vpts <- example_vpts
rcs(vpts) <- 11
# Set the radar cross section for a vpi
vpi <- integrate_profile(example_vpts)
rcs(vpi) <- 11
Run the code above in your browser using DataLab