oppg10.3: Oppgave 10.3

In SiljeHermansen/laerdegR: Stottepakke Til "Laer Deg R"

Oppgave 10.3

Description

Hvordan endrer sannsynligheten for å stemme Fremskrittspartiet seg når inntekt øker fra 5 til 6, mens andre variabler holdes konstant på gjennomsnittet?

Usage

oppg10.3()

Author(s)

Silje Synnøve Lyder Hermansen

Examples

  #Last inn data
  data(kap10)

  #Partivalg modellert som funksjon av inntekt.
  mod2<-glm(formula=FrP~Skepsis+Utjevn+Inntekt,
            data=kap10,
            family = binomial(link="logit"))

  #Definere hypotetisk datasett
  nyedata<-data.frame(Skepsis=mean(kap10$Skepsis, na.rm=TRUE),
                      Utjevn=mean(kap10$Utjevn, na.rm=TRUE),
                      Inntekt=c(5, 6)
  )

  #Predikere sannsynligheter
  preds<-predict(mod2, nyedata, type = "response")
  preds

SiljeHermansen/laerdegR documentation built on Sept. 2, 2022, 6:17 a.m.