## artificial example to show how to use the ABC_rejection function
set.seed(1)
n=10
priormatrix=cbind(c(500,3,-2.3,1,-25,-0.7),c(500,5,1.6,1,125,3.2))
priormatrix
ABC_rej<-ABC_rejection(model=trait_model, prior_matrix=priormatrix, nb_simul=n, n_cluster=1, progress_bar=FALSE)
ABC_rej
## To use the ABC_rejection function with multiple cores, simply change the value of n_cluster:
ABC_rejb<-ABC_rejection(model=trait_model, prior_matrix=priormatrix, nb_simul=n, n_cluster=2, progress_bar=FALSE)
Run the code above in your browser using DataLab