## Not run:
#
# ## Run the null model
# finchMod <- cooc_null_model(dataWiFinches, algo="sim9",nReps=10000,burn_in = 500)
# ## Summary and plot info
# summary(finchMod)
# plot(finchMod,type="burn_in")
# plot(finchMod,type="hist")
# plot(finchMod,type="cooc")
#
# ## Example that is repeatable with a saved seed
# finchMod <- cooc_null_model(dataWiFinches, algo="sim1",saveSeed = TRUE)
# mean(finchMod$Sim)
# ## Run the model with the seed saved
#
# finchMod <- cooc_null_model(dataWiFinches, algo="sim1",saveSeed=T)
# ## Check model output
# mean(finchMod$Sim)
#
# reproduce_model(finchMod$Sim)
#
# finchMod <- cooc_null_model(dataWiFinches, algo="sim1")
# ## Check model output is the same as before
# mean(finchMod$Sim)
# reproduce_model(finchMod$Sim)
#
#
# ## End(Not run)
Run the code above in your browser using DataLab