oppg10.4: Oppgave 10.4

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

Oppgave 10.4

Description

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

Usage

oppg10.4()

Author(s)

Silje Synnøve Lyder Hermansen

Examples

  #Last inn data
  data(kap10)
  kap10 <- 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(9, 10)
  )

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

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