3.7 Returning Model Objects

If you want to check the underlying models, set returnModels = TRUE

 rm_uvsum(response = 'orr',
 covs=c('age'),
 data=pembrolizumab,returnModels = TRUE)

## $age
## 
## Call:  glm(formula = orr ~ age, family = binomial, data = data)
## 
## Coefficients:
## (Intercept)          age  
##     4.12269     -0.04231  
## 
## Degrees of Freedom: 93 Total (i.e. Null);  92 Residual
## Null Deviance:       85.77 
## Residual Deviance: 82.53     AIC: 86.53

The data analysed can be examined by interrogating the data object appended to each model

mList <-  rm_uvsum(response = 'orr',
 covs=c('age'),
 data=pembrolizumab,returnModels = TRUE)
head(mList$age$data)

## # A tibble: 6 × 2
##   orr     age
##   <fct> <dbl>
## 1 SD/PD  62.1
## 2 SD/PD  62.2
## 3 CR/PR  70.9
## 4 SD/PD  57.9
## 5 SD/PD  65.7
## 6 SD/PD  60.9