TM 1 Komputasi Statistika

jam_belajar <- function(x){
  total <- 0
  for(i in 1:length(x)){
    total <- total + x[i]
  }
  return(total)
}

A <- c(2,3,2,4,3)
jam_belajar(A)

## [1] 14

kategori_belajar <- function(x){
  
  if(x >= 4){
    cat("Kategori waktu belajar: Tinggi\n")
  }
  
  if(x >= 2 && x < 4){
    cat("Kategori waktu belajar: Sedang\n")
  }
  
  if(x < 2){
    cat("Kategori waktu belajar: Rendah\n")
  }
}

kategori_belajar(4)

## Kategori waktu belajar: Tinggi