Regresie logistică neliniară

În capitolul 3, ai explorat distanța parcursă de navețiști și efectul liniar al acesteia asupra probabilității ca cineva să călătorească cu autobuzul. Dar ce se întâmplă dacă această relație este neliniară și nemonotonă?

probitVsLogit

De exemplu, ce se întâmplă dacă persoanele care fac naveta pe distanțe foarte scurte sau foarte lungi au o probabilitate mai mică de a călători cu autobuzul? Poți adăuga termeni neliniari în formule în R folosind funcția I(..) ca parte a formulei tale. De exemplu, y~I(x^2) îți permite să estimezi un coeficient pentru x*x. În cadrul acestui exercițiu, vei analiza mai în detaliu datele despre autobuz.

Acest exercițiu face parte din cursul

Modele Liniare Generalizate în R

Vezi cursul

Instrucțiuni pentru exercițiu

Adaugă formula y ~ I(x^2) la opțiunea formula din al doilea apel al funcției geom_smooth().

Exercițiu interactiv practic

Încearcă acest exercițiu completând acest cod de exemplu.

# Plot linear effect of travel distance on probability of taking the bus
gg_jitter <-
	ggplot(data = bus, aes(x = MilesOneWay, y = Bus2)) + 
	geom_jitter(width = 0, height = 0.05) + 
	geom_smooth(method = 'glm', 
                method.args = list(family = 'binomial'))

# Add a non-linear equation to a geom_smooth()
gg_jitter +
	geom_smooth(method = 'glm', 
                method.args = list(family = 'binomial'), 
                formula = ___, 
                color = 'red')

Editează și rulează codul