# \donttest{
data("Bird.parasites")
# Perform 2 quick bootstrap replicates using 70% of observations
bootedCRF <- bootstrap_MRF(data = Bird.parasites,
n_nodes = 4,
family = 'binomial',
sample_prop = 0.7,
n_bootstraps = 2)
# Small example of using spatial coordinates for a spatial CRF
Latitude <- sample(seq(120, 140, length.out = 100), nrow(Bird.parasites), TRUE)
Longitude <- sample(seq(-19, -22, length.out = 100), nrow(Bird.parasites), TRUE)
coords <- data.frame(Latitude = Latitude, Longitude = Longitude)
bootedSpatial <- bootstrap_MRF(data = Bird.parasites, n_nodes = 4,
family = 'binomial',
spatial = TRUE,
coords = coords,
sample_prop = 0.5,
n_bootstraps = 2)# }
Run the code above in your browser using DataLab