# NOT RUN {
####### Example data:
SyntheticTrial <- SyntheticData(SpeciesNum = 100,
CommunityNum = 3, SpCo = NULL,
Length = 500,
Parameters = list(a=c(40, 80, 50),
b=c(100,250,400),
c=rep(0.03,3)),
dev.c = .015, pal = c("#008585", "#FBF2C4", "#C7522B"))
######## 6 clustergram plots
for (i in 1:6) clustergram(as.matrix(SyntheticTrial[,2:ncol(SyntheticTrial)]),
clustering.function = clustergram.kmeans,
k.range = 2:10, line.width = .2)
# }
Run the code above in your browser using DataLab