#Load the multivariate simulated
#dataset `simTransComms`
data(simTransComms)
#Subset the third community prior to the transition
pre_simTransComms <- subset(simTransComms$community3,time < inflection_pt)
#Estimate the stability index for the third community
#(trimmed for speed)
egJI <- multiJI(data = pre_simTransComms[1:10,2:5],
winsize = 75)
Run the code above in your browser using DataLab