4.8 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)

##     orr      age
## 1 SD/PD 62.07803
## 2 SD/PD 62.15743
## 3 CR/PR 70.94319
## 4 SD/PD 57.90828
## 5 SD/PD 65.66461
## 6 SD/PD 60.88706