# NOT RUN {
pattern_random <- fit_point_process(species_a, n_random = 19, process = "cluster")
plot_randomized_pattern(pattern_random)
plot_randomized_pattern(pattern_random, what = "pp")
# }
# NOT RUN {
marks_sub <- spatstat::subset.ppp(species_a, select = dbh)
marks_recon <- reconstruct_pattern_marks(pattern_random$randomized[[1]], marks_sub,
n_random = 19, max_runs = 1000)
plot_randomized_pattern(marks_recon)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab