## ------------------------------------------------------------------------
  library(STEPCAM)
  set.seed(42)
  simul_data <- generate.Artificial.Data(n_species = 20, n_traits = 3, n_communities = 10,
                                       occurence_distribution = 2, average_richness = 0.6,
                                       sd_richness = 0.25, mechanism_random = FALSE)
  output <- STEPCAM_ABC(simul_data$abundances, simul_data$traits,
                        numParticles = 100, n_traits = 3, plot_number = 5,
                        stopRate = 0.1, stop_at_iteration = 8, continue_from_file = TRUE)

## ------------------------------------------------------------------------
TernPlot(output)

## ------------------------------------------------------------------------
plotSTEPCAM(output)

## ------------------------------------------------------------------------
plotSMC(paste(getwd(),"/",sep=""))