TM.Komstat_Stevani Rara’ Tangke Teko

Menghitung Total Langkah Kaki Harian dalam Seminggu

hitung_total_langkah <- function(langkah_harian) {
  total <- 0
  for (langkah in langkah_harian) {
    total <- total + langkah
  }
  cat("Total langkah kaki minggu ini adalah:", total, "langkah\n")
}

# Contoh pengujian (data langkah 7 hari)
seminggu <- c(4500, 6000, 3200, 7500, 5000, 8000, 4000)
hitung_total_langkah(seminggu)

## Total langkah kaki minggu ini adalah: 38200 langkah

Menentukan Kategori Indeks Massa Tubuh / BMI (Kurus, Normal, Gemuk, Obesitas)

cek_bmi <- function(tb_cm, bb_kg) {
  tb_m <- tb_cm / 100
  bmi <- bb_kg / (tb_m^2)
  cat("Skor BMI Anda:", round(bmi, 2), "\nStatus: ")
  
  if (bmi < 18.5) {
    cat("Kurus (Underweight)\n")
  }
  if (bmi >= 18.5 && bmi < 25) {
    cat("Normal\n")
  }
  if (bmi >= 25 && bmi < 30) {
    cat("Kelebihan Berat Badan (Overweight)\n")
  }
  if (bmi >= 30) {
    cat("Obesitas\n")
  }
}

cek_bmi(165, 60)

## Skor BMI Anda: 22.04 
## Status: Normal

cek_bmi(170, 85)

## Skor BMI Anda: 29.41 
## Status: Kelebihan Berat Badan (Overweight)