#Load the multivariate simulated
#dataset `simTransComms`
data(simTransComms)
#Estimate the size-of-states for each
#time series in the first community.
#This is typically suggested
#to be the standard deviation of a
#reference period or the entire time
#series
eg.sost <- t(apply(simTransComms$community1[,3:7], MARGIN = 2, FUN = sd))
#transpose required to ensure a 1 x n matrix
egFI <- FI(data = simTransComms$community1[1:50,2:7],
sost = eg.sost,
winsize = 10,
winspace = 1,
TL = 90)
Run the code above in your browser using DataLab