# NOT RUN {
data(RCI_sample_data)
linear_fit <- lm(score ~ baseline + age + gender + education,
data = RCI_sample_data)
logistic_fit <- glm(cbind(score, 15 - score) ~ baseline + age + gender + education,
family = binomial,
data = RCI_sample_data)
linear_RCI <- RCI(linear_fit)
logistic_RCI <- RCI(logistic_fit)
plot(linear_RCI, logistic_RCI)
# }
Run the code above in your browser using DataLab