# NOT RUN {
############# Synthetic time series data:
SyntheticTrialSeries <- SyntheticDataSeries(CommunityPool = 40,
CommunityNum = 4, SpCo = NULL,
Length = 500, SeriesNum = 5,
Parameters = list(a=rep(60, 4),
b=c(0,200,350,500),
c=rep(0.03,4)),
dev.c = .015,
pal = c("#008585", "#B8CDAE", "#E6C186", "#C7522B"),
replacement = FALSE,
Parameters.repl = TRUE)
EcoTimeSeriesTrial <- EcotoneFinderSeries(data = SyntheticTrialSeries,
dist = "Distance", method = "cmeans",
series = "Time", groups = 4,
standardize = "hellinger", na.rm = TRUE)
# }
Run the code above in your browser using DataLab