pattern_random <- fit_point_process(species_a, n_random = 199)
print(pattern_random)
if (FALSE) {
pattern_recon <- reconstruct_pattern(species_b, n_random = 19, max_runs = 1000,
method = "hetero")
print(pattern_recon)
}
Run the code above in your browser using DataLab