fig8.3: Figur 8.3

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

Figur 8.3

Description

Replikasjonskode for grafikk 8.3. Kurvilineær effekt.

Usage

fig8.3()
fig8.3

Author(s)

Silje Synnøve Lyder Hermansen

Examples

  #Last inn data
  data(kap8)

  #Etimer modell
  mod4<-lm(formula=Skepsis~Alder+Alder2,
           data=kap8)

  #Hypotetisk datasett
  data.alder<-data.frame(Alder=15:105,
                         Alder2=c(15:105)*c(15:105))

  #Prediksjoner
  pred.ald=predict(mod4,
                   newdata = data.alder,
                   interval = "confidence")

  #Grafikk for kurvilinear sammenheng i aldersgruppen 15 til 105 ar
  plot(y = pred.ald[,"fit"],
       x = 15:105,
       type = "l",
       bty = "n",
       ylim = c(0,10),
       xlab = "Alder",
       ylab = "Skepsis",
       main = "Effekten av alder på innvandringsskepsis")
  lines(y = pred.ald[,"lwr"],
        x = 15:105,
        lty=2)
  lines(y = pred.ald[,"upr"],
        x = 15:105,
        lty=2)

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