The hardware and bandwidth for this mirror is donated by dogado GmbH, the Webhosting and Full Service-Cloud Provider. Check out our Wordpress Tutorial.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]dogado.de.

Sampling communities with mobsim

Felix May

2024-12-05

In addition to the simulation and analysis of spatially-explicit communities, mobsim provides a function to generate samples from simulated or observed communities. The combination of simulated data AND simulated sampling is a powerful approach to test the validity and power of empirical approaches.

1 Random sampling

Here, we simulate a community and then generate samples with the function sample_quadrats. By default sample_quadrats distributes a user-defined number of quadrats with user-defined size in the landscape and provides the number of individuals for each species in each quadrat.

The function returns two dataframes. The first includes the abundance of every species in every sampling quadrat and the second the positions of the lower left corners of the quadrats.

The community matrix of samples by species can then be analysed using additional software. For instance the R package vegan is perfectly suited for the analysis of community data. See the vignette Introduction to mobsim for a worked example.

library(mobsim)
sim_com1 <- sim_poisson_community(s_pool = 100, n_sim = 20000)
sample1 <- sample_quadrats(sim_com1)

head(sample1$spec_dat[,1:6])
##       species_001 species_002 species_003 species_004 species_005 species_006
## site1           6           6           9           3           3           4
## site2           5           1           9           3           5           7
## site3           3           6           9           8          10           6
## site4          12           9           6           4           7           4
## site5          10           7           7           7           4           7
## site6           8           6           6           5           4           9
head(sample1$xy_dat)
##               x         y
## site1 0.8398317 0.2042091
## site2 0.4609808 0.4842543
## site3 0.2938108 0.8613166
## site4 0.6377050 0.6944758
## site5 0.4906147 0.8931958
## site6 0.6590484 0.1874565

In sample_quadrats() there is an option to exclude overlapping quadrats from the random sampling design, which is shown here in two examples with different numbers and sizes of the quadrats.

sample2 <- sample_quadrats(sim_com1, n_quadrats = 2, quadrat_area = 0.1,
                           avoid_overlap = TRUE)

sample3 <- sample_quadrats(sim_com1, n_quadrats = 20, quadrat_area = 0.001,
                           avoid_overlap = TRUE)

2 Transect sampling

In addition to random designs also transects can be sampled-. This requires specifying a position for the lower left quadrat as well as x and y distances between neighbouring quadrats.

sample4 <- sample_quadrats(sim_com1, n_quadrats = 10, quadrat_area = 0.005,
                           method = "transect", x0 = 0, y0 = 0.5, delta_x = 0.1,
                           delta_y = 0)

sample5 <- sample_quadrats(sim_com1, n_quadrats = 10, quadrat_area = 0.005,
                           method = "transect", x0 = 0, y0 = 0, delta_x = 0.1,
                           delta_y = 0.1)

3 Grid sampling

Finally, sampling quadrats can be arranged in a regular lattice. For this design users have to choose distances among the quadrats in x and y dimension as shown in the example.

sample6 <- sample_quadrats(sim_com1, n_quadrats = 25, quadrat_area = 0.005,
                           method = "grid", x0 = 0, y0 = 0, delta_x = 0.1,
                           delta_y = 0.1)

sample7 <- sample_quadrats(sim_com1, n_quadrats = 25, quadrat_area = 0.005,
                           method = "grid", x0 = 0.05, y0 = 0.05, delta_x = 0.2,
                           delta_y = 0.2)

By default, sample_quadrats() plots the chosen design. However, the plotting can be also deactivated for more efficient computations:

sample7a <- sample_quadrats(sim_com1, n_quadrats = 25, quadrat_area = 0.005,
                           method = "grid", x0 = 0.05, y0 = 0.05, delta_x = 0.2,
                           delta_y = 0.2, plot = FALSE)
head(sample7a$spec_dat[,1:10])
##       species_001 species_002 species_003 species_004 species_005 species_006
## site1           5           1           1           3           3           5
## site2           3           3           2           3           5           2
## site3           4           2           3           7           4           0
## site4           3           4           2           5           1           1
## site5           3           4           4           3           3           2
## site6           3           1           2           4           3           6
##       species_007 species_008 species_009 species_010
## site1           3           1           5           7
## site2           3           6           0           2
## site3           4           3           3           3
## site4           4           2           2           1
## site5           2           0           4           1
## site6           2           1           3           4

These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.
Health stats visible at Monitor.