if (FALSE) {
# Dynamic EGA individual and population structures
dyn1 <- dynEGA.ind.pop(
data = sim.dynEGA[,-26], n.embed = 5, tau = 1,
delta = 1, id = 25, use.derivatives = 1,
model = "glasso", ncores = 2, corr = "pearson"
)
# JSD Ergodicity Test
testing.ergoinfo <- jsd.ergoInfo(
dynEGA.object = dyn1
)}
Run the code above in your browser using DataLab