## Not run:
# finchMod <- cooc_null_model(dataWiFinches, algo="sim1",saveSeed=T)
# ## Check model output
# mean(finchMod$Sim)
#
# reproduce_model(finchMod)
#
# finchMod <- cooc_null_model(dataWiFinches, algo="sim1")
# ## Check model output is the same as before
# mean(finchMod$Sim)
# reproduce_model(finchMod)
# ## End(Not run)
Run the code above in your browser using DataLab