TM PRAK KOMSTAT

kategori_tidur <- function(jam){
  cat("Lama Tidur Anda: ", jam, "jam\nKategori Anda: ")
  if (jam < 5){
    cat("Kurang Tidur\n")
  }
  if (jam >= 5 && jam < 7){
    cat("Cukup Tidur\n")
  }
  if (jam >= 7 && jam <= 9){
    cat("Tidur Ideal\n")
  }
  if (jam > 9){
    cat("Tidur Berlebihan\n")
  }
}

kategori_tidur(2)

## Lama Tidur Anda:  2 jam
## Kategori Anda: Kurang Tidur

kategori_tidur(6)

## Lama Tidur Anda:  6 jam
## Kategori Anda: Cukup Tidur

kategori_tidur(8)

## Lama Tidur Anda:  8 jam
## Kategori Anda: Tidur Ideal

kategori_tidur(12)

## Lama Tidur Anda:  12 jam
## Kategori Anda: Tidur Berlebihan