#library(lsm)
#1. AGE and Coronary Heart Disease (CHD) Status of 100 subjects:
# library(lsm)
# library(tidyverse)
# datos <- lsm::chdage
# attach(datos)
# modelo <- lsm(CHD ~ AGE, data=datos)
# plot(modelo, type = "scatter")
# plot(modelo, type = "scatter", title = "Villalba-llinas lsm")
# plot(modelo, type = "probability", xlab = "Elainys")
# plot(modelo, type = "Logit", color = "blue")
# plot(modelo, type = "odds", size = 3)
Run the code above in your browser using DataLab