# NOT RUN {
library(metan)
# Based on stability only
MTSI_MODEL <- waasb(data_ge,
resp = c(GY, HM),
gen = GEN,
env = ENV,
rep = REP
)
MTSI_index <- mtsi(MTSI_MODEL)
print(MTSI_index)
# }
Run the code above in your browser using DataCamp Workspace