TM KOMSTAT

for (i in 1:10) { cat("aku pengen income tanpa kerja\n")  
} 

## aku pengen income tanpa kerja
## aku pengen income tanpa kerja
## aku pengen income tanpa kerja
## aku pengen income tanpa kerja
## aku pengen income tanpa kerja
## aku pengen income tanpa kerja
## aku pengen income tanpa kerja
## aku pengen income tanpa kerja
## aku pengen income tanpa kerja
## aku pengen income tanpa kerja

cuacaHari <- function(cuaca){
  cat("Cuaca hari ini:", cuaca, "\n")
  
  if(cuaca == "cerah"){
    cat("Saran: Olahraga atau jalan sore ")
  } else if(cuaca == "mendung"){
    cat("Saran: Bawa payung sebelum keluar ")
  } else if(cuaca == "hujan"){
    cat("Saran: Tetap di rumah dan jangan lupa jas hujan ️")
  } else {
    cat("Data cuaca tidak tersedia")
  }
}

# Menjalankan function
cuacaHari("cerah")

## Cuaca hari ini: cerah 
## Saran: Olahraga atau jalan sore

cuacaHari("hujan")

## Cuaca hari ini: hujan 
## Saran: Tetap di rumah dan jangan lupa jas hujan ️