priormatrix=cbind(c(500,3,-2.3,1,-25,-0.7),c(500,5,1.6,1,125,3.2))
sum_stat_obs=c(100,2.5,20,30000)
## artificial example to perform the Beaumont et al. (2009)'s method.
##
ABC_Beaumont<-ABC_sequential(method="Beaumont", model=trait_model, prior_matrix=priormatrix,
nb_simul=10, summary_stat_target=sum_stat_obs, n_cluster=1, tolerance_tab=c(8,5))
ABC_Beaumont
## artificial example to perform the Drovandi and Pettitt (2011)'s method.
##
ABC_Drovandi<-ABC_sequential(method="Drovandi", model=trait_model, prior_matrix=priormatrix,
nb_simul=10, summary_stat_target=sum_stat_obs, n_cluster=1, tolerance_tab=3, c=0.7)
ABC_Drovandi
## artificial example to perform the Del Moral et al. (2012)'s method.
##
ABC_Delmoral<-ABC_sequential(method="Delmoral", model=trait_model, prior_matrix=priormatrix,
nb_simul=10, summary_stat_target=sum_stat_obs, n_cluster=1, alpha=0.5, tolerance_target=3)
ABC_Delmoral
## artificial example to perform the Lenormand et al. (2012)'s method.
##
ABC_Lenormand<-ABC_sequential(method="Lenormand", model=trait_model, prior_matrix=priormatrix,
nb_simul=10, summary_stat_target=sum_stat_obs, n_cluster=1, p_acc_min=0.4)
ABC_Lenormand
Run the code above in your browser using DataLab