# NOT RUN {
# load the model and data
plpData <- loadPlpData("C:/plpdata")
plpModel <- loadPlpModel("C:/plpmodel")
# use the same population settings as the model:
populationSettings <- plpModel$populationSettings
populationSettings$plpData <- plpData
population <- do.call(createStudyPopulation, populationSettings)
# get the prediction:
prediction <- applyModel(population, plpData, plpModel)$prediction
# }
Run the code above in your browser using DataLab