if (FALSE) {
model1 <- tfm(output, inputs = tf1, noise = noise1)
model2 <- tfm(output, inputs = tf2, noise = noise2)
# Single model AIC
AIC(model1)
# Compare models
AIC(model1, model2)
# BIC
BIC(model1)
}
Run the code above in your browser using DataLab