# NOT RUN {
#- import the tree_line_plot dataset
file <- system.file("extdata", "tree_line_plot.laz", package="viewshed3d")
tls <- lidR::readLAS(file,select="xyz")
#- define the animal location
center <- c(0,-6,1)
#- reshape the TLS scene with scene_shape="circ" and the calculated center
reshaped <- viewshed3d::sample_scene(tls,scene_radius = 4,
center=center,
scene_shape = "circ")
lidR::plot(reshaped)
#- reshape the TLS scene with scene_shape="sph" and the calculated center
reshaped <- viewshed3d::sample_scene(tls,scene_radius = 4,
center=center,
scene_shape = "sph")
lidR::plot(reshaped)
# }
# NOT RUN {
#- manual selection of the center
reshaped <- viewshed3d::sample_scene(tls,scene_radius = 4,
scene_shape = "circ")
lidR::plot(reshaped)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab