m1 <- glm(vs ~ am + gear, data = mtcars, family = binomial)
m2 <- glm(vs ~ am + gear + wt, data = mtcars, family = binomial)
reclassificationJS(
data = mtcars, cOutcome = 8,
predrisk1 = predict(m1, type = "response"),
predrisk2 = predict(m2, type = "response"), cutoff = c(0, .20, .40, 1)
)
Run the code above in your browser using DataLab