TM 1 Komputasi Statistika

1. Function menggunakan statement for

#Studi kasus: menghitung total jarak tempuh kendaraan
jarak_total <- function(x) {
  total <- 0
  
  for (i in 1:length(x)) {
    total <- total + x[i]
  }
  
  cat("Total jarak tempuh =", total, "km\n")
}

jarak <- c(12, 8, 15, 10, 20)
jarak_total(jarak)

## Total jarak tempuh = 65 km

2. Function menggunakan statement if

#Studi kasus: kategori jarak tempuh kendaraan
kategori_jarak <- function(x) {
  
  cat("Jarak tempuh:", x, "km\n")
  
  if (x < 10) {
    cat("Kategori: Jarak dekat\n")
  } else if (x >= 10 && x < 30) {
    cat("Kategori: Jarak sedang\n")
  } else if (x >= 30 && x <= 50) {
    cat("Kategori: Jarak jauh\n")
  } else {
    cat("Kategori: Jarak sangat jauh\n")
  }
}

kategori_jarak(25)

## Jarak tempuh: 25 km
## Kategori: Jarak sedang

kategori_jarak(45)

## Jarak tempuh: 45 km
## Kategori: Jarak jauh