if (FALSE) {
fit_list <- lapply(X = 1:39, FUN = function(i) {fit_point_process(pattern = species_a,
n_random = 1, simplify = TRUE, return_input = FALSE, verbose = FALSE)})
list_to_randomized(list = fit_list, observed = species_a)
}
Run the code above in your browser using DataLab