| simulate_mpp | R Documentation |
Simulate a realization of a location dependent marked point process
simulate_mpp(
process = c("self_correcting"),
process_fit = NULL,
t_min = 0,
t_max = 1,
anchor_point = NULL,
raster_list = NULL,
scaled_rasters = FALSE,
mark_model = NULL,
xy_bounds = NULL,
include_comp_inds = FALSE,
competition_radius = 15,
edge_correction = "none",
thinning = TRUE,
seed = NULL,
mark_mode = NULL,
size_range = NULL,
delta = NULL
)
process |
type of process used (currently supports |
process_fit |
either (1) a |
t_min |
minimum value for time. |
t_max |
maximum value for time. |
anchor_point |
(optional) vector of (x,y) coordinates of the point to condition on.
If |
raster_list |
(optional) list of raster objects used for mark prediction.
Required when |
scaled_rasters |
|
mark_model |
a mark model object used when |
xy_bounds |
(optional) vector of bounds as |
include_comp_inds |
|
competition_radius |
positive numeric distance used when |
edge_correction |
type of edge correction to apply ( |
thinning |
|
seed |
integer seed for reproducibility. |
mark_mode |
(optional) mark generation mode: |
size_range |
numeric vector |
delta |
positive scalar used for |
an object of class "ldmppr_sim".
# Specify the generating parameters of the self-correcting process
generating_parameters <- c(2, 8, .02, 2.5, 3, 1, 2.5, .2)
# Specify an anchor point
M_n <- c(10, 14)
# Load the raster files
raster_paths <- list.files(system.file("extdata", package = "ldmppr"),
pattern = "\\.tif$", full.names = TRUE
)
raster_paths <- raster_paths[!grepl("_med\\.tif$", raster_paths)]
rasters <- lapply(raster_paths, terra::rast)
# Scale the rasters
scaled_raster_list <- scale_rasters(rasters)
# Load the example mark model
file_path <- system.file("extdata", "example_mark_model.rds", package = "ldmppr")
mark_model <- load_mark_model(file_path)
# Simulate a realization
example_mpp <- simulate_mpp(
process = "self_correcting",
process_fit = generating_parameters,
t_min = 0,
t_max = 1,
anchor_point = M_n,
raster_list = scaled_raster_list,
scaled_rasters = TRUE,
mark_model = mark_model,
xy_bounds = c(0, 25, 0, 25),
include_comp_inds = TRUE,
competition_radius = 10,
edge_correction = "none",
thinning = TRUE,
seed = 90210
)
# Plot the realization and provide a summary
plot(example_mpp, pattern_type = "simulated")
summary(example_mpp)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.