Regresión logística en R

Modelar un resultado binario con glm.

model <- glm(am ~ wt + hp, data = mtcars, family = binomial)

coefs <- coef(model)
odds_ratios <- exp(coef(model))
deviance <- model$deviance

probabilities <- predict(model, type = "response")
classes <- ifelse(probabilities > 0.5, 1, 0)
accuracy <- mean(classes == mtcars$am)

table_of_fit <- table(predicted = classes, actual = mtcars$am)

Cómo funciona

1. family = binomial selecciona la regresión logística.
2. exp(coef(model)) convierte los log-odds en odds ratios.
3. type = "response" predice probabilidades listas para aplicar un umbral.

El intento, en números

Líneas

11

Caracteres a escribir

341

Tokens

85

Ritmo de tres estrellas

100 tpm

Al ritmo de tres estrellas de 100 tokens por minuto, este intento toma unos 51 segundos.

Escribe este fragmento

Paso 3 de 4 en Correlación y regresión; paso 8 de 11 en Estadística.

← Anterior Siguiente →