| oppg9.4 | R Documentation |
Hvor mange av observasjonene i modell 2 har forhøyede Cook's D-verdier?
oppg9.4() oppg9.4
Silje Synnøve Lyder Hermansen
#Last inn data
data(kap9)
#Utvid modell
mod2<-lm(Skepsis~KultSkepsis+
Inntekt+
Alder+Alder2+
Prekaritet*Innvandrer,
data=kap9,
na.action = "na.exclude")
#Beregn Cooks distansemal
CooksD<-cooks.distance(mod2)
#Beregn grenseverdi
N=length(na.omit(CooksD))
k=length(coefficients(mod2)-1)
grense=4/(N-k-1)
#Svar
sum(CooksD>=grense, na.rm=TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.