# \donttest{
require(magrittr)
require(ggplot2)
obs <- obs_data[MDV==0]
sim <- sim_data[MDV==0]
npde <- observed(obs, x=NULL, y=DV) %>%
simulated(sim, y=DV) %>%
npde(id=ID)
vpc <- observed(npde$npdeobs, x=epred, y=npde) %>%
simulated(npde$npdesim, y=npde) %>%
binning("eqcut", nbins=10) %>%
vpcstats()
plot(vpc) +
labs(x="Simulation-based Population Prediction", y="Normalized Prediction Distribution Error")
# }
Run the code above in your browser using DataLab