## Not run:
# Artificial.Data <- generate.Artificial.Data(n_species = 40, n_traits = 3,
# n_communities = 5, occurence_distribution = 0.2,
# average_richness = 0.5, sd_richness = 0.2,
# mechanism_random=FALSE)
# O <- STEPCAM_ABC(Artificial.Data$abundances, Artificial.Data$traits,
# numParticles = 10, n_traits = 3, plot_number = 1, stopRate = 0.8)
# currentDir <- getwd();
# plotSMC(paste(currentDir,"/",sep=""));
# ## End(Not run)
Run the code above in your browser using DataLab