# NOT RUN {
fit1 <- fitNetwork(ggmDat, covariates = 'M')
fit2 <- fitNetwork(ggmDat, moderators = 'M')
predictNet(fit1)
predictNet(fit1, all = TRUE)
predictNet(fit2, fit1) # Find the differences in prediction error across the two models
# }
Run the code above in your browser using DataLab