R/oppg7.1.R

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

oppg7.1<-function(){
  data(kap7, envir = environment())
  kap7 <- kap7

  mod1<-lm(formula=Skepsis~Prekaritet,
         data=kap7)
  names(summary(mod1)) #Elementene i listeobjektet
  summary(mod1)$coefficients #Informasjon om koeffisientene
  hist(summary(mod1)$residuals) #Histogram av residualene
}