R/oppg7.3.R

Defines functions oppg7.3

Documented in oppg7.3

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

  #Innvandringsskepsis modellert som funksjon av utdanning.
  mod.utd<-lm(formula=Skepsis~Utdanning,
              data=kap7)

  #Konstantleddet#
  summary(mod.utd)$coefficients["(Intercept)",1]

  #Finnes det respondenter med utdanning tilsvarende konstantleddet?
  any(kap7$Utdanning==0)
  sum(kap7$Utdanning==0, na.rm = TRUE)


  #Stigningskoeffisienten#
  summary(mod.utd)$coefficients["Utdanning",1]

  #Standardfeilen til stigningskoeffisienten#
  summary(mod.utd)$coefficients["Utdanning",2]

}
SiljeHermansen/laerdegR documentation built on Sept. 2, 2022, 6:17 a.m.