# NOT RUN {
#### Artificial dataset:
SyntheticTrial <- SyntheticData(SpeciesNum = 21, CommunityNum = 3,
SpCo = NULL ,Length = 500,
Parameters = list(a=rep(60, 3),
b=c(0,250,500),
c=rep(0.015,3)),
pal = c("#008585", "#FBF2C4", "#C7522B"))
## Analyses:
SyntheticEcoFinder <- EcotoneFinder(data = SyntheticTrial[,-1],
dist = SyntheticTrial$Distance,
method = "all", groups = 3,
standardize = "hellinger", diversity = "all")
## Slope calculation:
SyntheticSlope <- Slope(SyntheticEcoFinder, method = "all", axis.number = 2,
diversity = "all")
# }
Run the code above in your browser using DataLab