#library(lsm)
#1. AGE and Coronary Heart Disease (CHD) Status of 20 subjects:
# library(lsm)
# library(tidyverse)
# datos <- lsm::chdage
# attach(datos)
# modelo <- lsm(CHD ~ AGE, data=datos)
# head(predict(modelo, type = "link"))
# predict(modelo,newdata=data.frame(AGE=35),type = "response")
# head(predict(modelo, type = "odd"))
# head(predict(modelo, type = "OR"))
Run the code above in your browser using DataLab