#Load the multivariate simulated
#dataset `simTransComms`
data(simTransComms)
#Subset the second community prior to the transition
pre_simTransComms <- subset(simTransComms$community2,time < inflection_pt)
#Estimate the univariate stability index for the first species in
#the second community
egJI <- uniJI(data = pre_simTransComms[1:25,2:3],
winsize = 75, E = 3)
Run the code above in your browser using DataLab