fig8.3 | R Documentation |
Replikasjonskode for grafikk 8.3. Kurvilineær effekt.
fig8.3() fig8.3
Silje Synnøve Lyder Hermansen
#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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.