# NOT RUN {
pattern_recon <- reconstruct_pattern_homo(species_a, n_random = 1, max_runs = 1000,
simplify = TRUE, return_input = FALSE)
marks_sub <- spatstat::subset.ppp(species_a, select = dbh)
marks_recon <- reconstruct_pattern_marks(pattern_recon, marks_sub, n_random = 19, max_runs = 1000)
print(marks_recon)
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace