# 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"))
######## clustergram plots with fuzzy indices plots:
clustergramInd(as.matrix(SyntheticTrial[,2:ncol(SyntheticTrial)]),
clustering.function = clustergram.cmeans.Ind,
clustergram.plot = clustergram.plot.matlines,
FuzzyIndice.plot = FuzzyIndice.plot.matlines,
k.range = 2:10, line.width = .2)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab