# NOT RUN {
library(metan)
model <- waas(data_ge,
env = ENV,
gen = GEN,
rep = REP,
resp = c(GY, HM))
# Predict GY with 3 IPCA and HM with 1 IPCA
predict <- predict(model, naxis = c(3, 1))
predict
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab