#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
egarJ <- uniAR(data = pre_simTransComms[,2:3],
winsize = 25, dt = 1)
Run the code above in your browser using DataLab