kalila-tm-komstat.R

#for function
penurunan <- c(1, 3, 1, 4, 0.5, 2)

diet <- function(x){
  for (i in 1:6){
    cat("Minggu ke-",i,": turun sebanyak ",x[i]," kg\n")
  }
}
diet(penurunan)

## Minggu ke- 1 : turun sebanyak  1  kg
## Minggu ke- 2 : turun sebanyak  3  kg
## Minggu ke- 3 : turun sebanyak  1  kg
## Minggu ke- 4 : turun sebanyak  4  kg
## Minggu ke- 5 : turun sebanyak  0.5  kg
## Minggu ke- 6 : turun sebanyak  2  kg

#if function
kategori_diet <- function(penurunan){
  
  hasil <- "Belum ada penurunan signifikan"
  
  if(penurunan >= 5){
    hasil <- "Target diet tercapai"
  }
  
  if(penurunan >= 3 && penurunan < 5){
    hasil <- "Diet berjalan cukup baik"
  }
  
  if(penurunan >= 1 && penurunan < 3){
    hasil <- "Ada perkembangan penurunan berat badan"
  }
  
  return(hasil)
}

# Contoh penggunaan
kategori_diet(5)

## [1] "Target diet tercapai"