#' # Constructing a minimal fe_ccircle_spatial object from scratch
# Use fe_ccircle_spatial() if you are not absolutely sure
trees <- NULL
tree_positions <- NULL
# define a circle definition with three concentric circles
circle_def <- data.frame(
dbh_lower = c(0,12,30),
dbh_upper = c(11.9,29.9,999.0),
c_area = c(0.0025, 0.0060, 0.0500)
)
# generate a NA dummy for small_trees
small_trees <- data.frame(
tree_id = NA_character_,
species_id = NA_character_,
layer_key = NA_real_,
time_yr = NA_real_,
dbh_cm = NA_real_,
age_yr = NA_real_,
height_m = NA_real_
)
fe_ccircle_spatial_notrees_candidate <- list(
stand_id = "my_interesting_stand",
small_trees = small_trees,
trees = trees,
circle_definition = circle_def,
tree_positions = tree_positions,
time_yr = 2024
)
fe_ccircle_notrees_object <-
new_fe_ccircle_spatial_notrees(fe_ccircle_spatial_notrees_candidate)
# Better validate it
fe_ccircle_notrees_object |> validate_fe_ccircle_spatial_notrees()
Run the code above in your browser using DataLab