Function for

for (i in 1:9) { 
  cat("Ada kelinci di atas atap rumah\n")
  }
## Ada kelinci di atas atap rumah
## Ada kelinci di atas atap rumah
## Ada kelinci di atas atap rumah
## Ada kelinci di atas atap rumah
## Ada kelinci di atas atap rumah
## Ada kelinci di atas atap rumah
## Ada kelinci di atas atap rumah
## Ada kelinci di atas atap rumah
## Ada kelinci di atas atap rumah

Function if

umur <- function(x){
  cat("Umur Anda: ",x,"\nAnda termasuk ")

  if (x>=0 && x<13) {
    cat("Anak-anak\n")
  }
  if (x>=13 && x<18) {
    cat("Remaja\n")
  }
  if (x>=18 && x<60) {
    cat("Dewasa\n")
  }
  if (x>=60) {
    cat("Lansia\n")
  }
}

umur(15)
## Umur Anda:  15 
## Anda termasuk Remaja
umur(25)
## Umur Anda:  25 
## Anda termasuk Dewasa