| fig9.2 | R Documentation |
Replikasjonskode for grafikk 9.2.
fig9.2()
Silje Synnøve Lyder Hermansen
#Last inn data
data(kap9)
#Estimer modell
mod<-lm(Skepsis~Inntekt+
Alder+Alder2+
Prekaritet*Innvandrer,
data=kap9,
na.action = "na.exclude")
#Predikerte verdier
kap9$Prediksjoner<-predict(mod)
#Sett opp spredningsdiagram
plot(kap9$Skepsis,
kap9$Prediksjoner,
ylim = c(0,10),
xlab = "Observert innvandringsskepsis",
ylab = "Predikert innvandringsskepsis",
main = "Korrelasjon mellom \npredikerte og observerte y-verdier")
#Legg til hjelpelinje
abline(a = 0,
b = 1,
lty = 2)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.