# NOT RUN {
###To speed up the simulation of these examples, the cases, sites and n were set small.
##Single site: micromollusk from Cayo Nuevo (Yucatan, Mexico)
data(micromollusk)
#Estimation of parameters of pilot data
par.mic<-assempar (data = micromollusk,
type= "P/A",
Sest.method = "average")
#Simulation of 3 data sets, each one with 10 potential sampling units from a single site
sim.mic<-simdata(par.mic, cases= 3, N = 10, sites = 1)
#Estimation of diversity metrics of original and simulated data
qua.mic<-datquality(data = micromollusk,
dat.sim = sim.mic,
Par = par.mic,
transformation = "none",
method = "jaccard" )
qua.mic
##Multiple sites: Sponges from Alacranes National Park (Yucatan, Mexico).
data(sponges)
#Estimation of parameters of pilot data
par.spo<-assempar(data = sponges,
type= "counts",
Sest.method = "average")
#Simulation of 3 data sets, each one with 10 potential sampling units in 3 sites.
sim.spo<-simdata(par.spo, cases= 3, N = 10, sites = 3)
#Estimation of diversity metrics of original and simulated data
qua.spo<-datquality(data = sponges,
dat.sim = sim.spo,
Par = par.spo,
transformation = "square root",
method = "bray")
qua.spo
# }
Run the code above in your browser using DataLab