for (i in 1:5) {
cat("saya suka belajar Komputasi Statistika\n")
}
## saya suka belajar Komputasi Statistika
## saya suka belajar Komputasi Statistika
## saya suka belajar Komputasi Statistika
## saya suka belajar Komputasi Statistika
## saya suka belajar Komputasi Statistika
kategori_umur <-function(x){
cat("Umur Anda: ", x, "\nAnda Termasuk ")
if (x >= 0 && x < 12) { cat("Kategori Anak-anak\n")
}
if (x >= 12 && x < 25) { cat("Kategori Remaja\n")
}
if (x >= 25 && x < 60) { cat("Kategori Dewasa\n")
}
if (x >= 60) { cat("Kategori Lansia\n")
}
}
kategori_umur(20)
## Umur Anda: 20
## Anda Termasuk Kategori Remaja
kategori_umur(60)
## Umur Anda: 60
## Anda Termasuk Kategori Lansia