# NOT RUN {
### 3 distinct communities comprising a total of 21 species
SyntheticTrial <- SyntheticData(SpeciesNum = 21, CommunityNum = 3,
SpCo = NULL, Length = 500,
Parameters = list(a=rep(60, 3),
b=c(0,250,500),
c=rep(0.03,3)),
pal = c("#008585", "#FBF2C4", "#C7522B"))
### 3 distinct communities with uneven species numbers
SyntheticTrial <- SyntheticData(SpeciesNum = 21, CommunityNum = 3,
SpCo = c(5, 10, 6), Length = 500,
Parameters = list(a=rep(60, 3),
b=c(0,250,500),
c=rep(0.03,3)),
pal = c("#008585", "#FBF2C4", "#C7522B"))
# }
Run the code above in your browser using DataLab