R/oppg6.4.R

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

Defines functions oppg6.4

Documented in oppg6.4

oppg6.4<-function(){
  #Last inn data
  data(kap6, envir = environment())
  kap6 <- kap6

  #Opprett vektor:
  cut(kap6$Utdanning,
      breaks = c(0,10,20,30),
      labels = c("lav", "middels", "hoy"))

}