| vpcmodel | R Documentation |
Perform visual predictive check for NLME models
vpcmodel(
model,
vpcParams,
params,
hostPlatform = NULL,
runInBackground = FALSE,
...
)
model |
PK/PD model class object. |
vpcParams |
VPC argument setup. See |
params |
Engine argument setup. See |
hostPlatform |
Host definition for model execution. See |
runInBackground |
Set to |
... |
Additional class initializer arguments for |
if runInBackground is TRUE, it returns job properties.
Otherwise,
If the function is called in an interactive mode, the resulting simulated tables and summary statistics tables will be loaded and presented as a list;
If the function is called in a non-interactive mode, it returns the full paths of the tables generated
job <- fitmodel(model)
# View estimation results
print(job)
finalModelVPC <- copyModel(model, acceptAllEffects = TRUE, modelName = "model_VPC")
# View the model
print(finalModelVPC)
# Set up VPC arguments to have PRED outputted to simulation output dataset "predout.csv"
vpcSetup <- NlmeVpcParams(outputPRED = TRUE)
# Run VPC using the default host, default values for the relevant NLME engine arguments
finalVPCJob <- vpcmodel(model = finalModelVPC, vpcParams = vpcSetup)
# the same as:
finalVPCJob <- vpcmodel(model = finalModelVPC, outputPRED = TRUE)
# Observed dataset predcheck0.csv
dt_ObsData <- finalVPCJob$predcheck0
# Simulation output dataset predout.csv
dt_SimData <- finalVPCJob$predout
# Add PRED from REPLICATE = 0 of simulation output dataset to observed input dataset
dt_ObsData$PRED <- dt_SimData[REPLICATE == 0]$PRED
# tidyvpc package VPC example:
# library(tidyvpc)
library(magrittr)
# Create a regular VPC plot with binning method set to be "jenks"
binned_VPC <- observed(dt_ObsData, x = IVAR, yobs = DV) %>%
simulated(dt_SimData, ysim = DV) %>%
binning(bin = "jenks") %>%
vpcstats()
plot_binned_VPC <- plot(binned_VPC)
# Create a pcVPC plot with binning method set to be "jenks"
binned_pcVPC <- observed(dt_ObsData, x = IVAR, yobs = DV) %>%
simulated(dt_SimData, ysim = DV) %>%
binning(bin = "jenks") %>%
predcorrect(pred = PRED) %>%
vpcstats()
plot_binned_pcVPC <- plot(binned_pcVPC)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.