oppg10.6 | R Documentation |
Gi en grafisk presentasjon av effekten av inntekt på sannsynligheten for å stemme Fremskrittspartiet framfor Høyre.
oppg10.6()
Silje Synnøve Lyder Hermansen
#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")) #Hypotetisk datasett nyedata<-data.frame(Skepsis=mean(kap10$Skepsis, na.rm=TRUE), Utjevn=mean(kap10$Utjevn, na.rm=TRUE), Inntekt=c(1:10) ) #Predikerte logodds med standardfeil preds<-predict(mod2, nyedata, se.fit = TRUE) #Beregn konfidensintervall lav=preds$fit-1.96*preds$se.fit hoy=preds$fit+1.96*preds$se.fit #Plot gjennomsnittlig effekt og reverser omkoding plot(x=1:10, y=exp(preds$fit)/(1+exp(preds$fit)), type="l", ylim=c(0,1), bty="n", main="Effekten av inntekt pa sannsynligheten for a \n velge FrP framfor Hoyre", xlab="Inntekt (i persentiler)", ylab="Predikert sannsynlighet for a stemme FrP") #Plot konfidensintervall og reverser omkoding lines(x=1:10, y=exp(lav)/(1+exp(lav)), lty=2) lines(x=1:10, y=exp(hoy)/(1+exp(hoy)), lty=2)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.