## Not run:
# ## Run the null model
# rodentMod <- size_null_model(dataRodents)
# ## Summary and plot info
# summary(rodentMod)
# plot(rodentMod,type="hist")
# plot(rodentMod,type="size")
#
# ## Uniform Size model with user inputs
# rodentMod2 <- size_null_model(dataRodents,algo="size_uniform_user",
# algoOpts = list(userLow = 3,userHigh=15))
# summary(rodentMod2)
# plot(rodentMod2,type="hist")
# plot(rodentMod2,type="size")
#
# ### Source pool model
#
# rodentMod_sp <- size_null_model(dataRodents,algo="size_source_pool",
# algoOpts = list(sourcePool = runif(dim(dataRodents)[1],1,15)))
#
# summary(rodentMod_sp)
# plot(rodentMod_sp,type="hist")
# plot(rodentMod_sp,type="size")
#
# ## End(Not run)
Run the code above in your browser using DataLab