# NOT RUN {
### Artificial data:
SyntheticTrial <- SyntheticData(SpeciesNum = 21, CommunityNum = 3,
SpCo = NULL, Length = 500,
Parameters = list(a=rep(60, 3),
b=c(0,250,500),
c=rep(0.01,3)),
pal = c("#008585", "#FBF2C4", "#C7522B"))
## Network of species, with raw spinglass groups:
DistEco(SyntheticTrial[,2:ncol(SyntheticTrial)], transpose = TRUE,
plot = c("network"), spinglass = TRUE, run = 10,
spinglass.groups = c("raw"))
## Heatmap of species:
DistEco(SyntheticTrial[,2:ncol(SyntheticTrial)], transpose = TRUE,
symm = FALSE, plot = c("heatmap"))
# }
Run the code above in your browser using DataLab