Copy the model object into a new object and accept final parameter estimates from fitting run as initial estimates.
covariateModel <- copyModel (model , acceptAllEffects = TRUE
, modelName = paste0 ( ModelName , " _CovariateSearch "))
Add covariates to base model.
covariateModel <- covariateModel %>%
addCovariate ( covariate = c( Sex = " Gender "), effect = "Cl"
, type = " Categorical "
, levels = c(0, 1) , labels = c(" female ", " male ")) %>%
addCovariate ( covariate = " Age ", effect = "V") %>%
addCovariate ( covariate = c(BW = " BodyWeight ")
, effect = c("V", "Cl")
, center = " Value ", centerValue = 70)
Run Stepwise Covariate Search.
covariateJob <- stepwiseSearch ( covariateModel )
Load and view the model selected by stepwise covariate search.
stepwiseLines <- readLines ( paste0 (
covariateModel@modelInfo@workingDir ,"/ Stepwise . txt "))
print ( stepwiseLines [ grep (" Scenario to use = ", stepwiseLines )])
Last modified date:12/17/20
Legal Notice | Contact Certara
© 2020 Certara USA, Inc. All rights reserved.