sadikin.R

# Function perulangan menggunakan statement For
imo<-function(n) {
  for(i in 1:n) {
    cat("rank global masha 1\n")
  }
}

# Memanggil function untuk menampilkan kalimat sebanyak 5 kali
imo(5)

## rank global masha 1
## rank global masha 1
## rank global masha 1
## rank global masha 1
## rank global masha 1

# Function percabangan menggunakan statement If
cek_mmr <- function(mmr) {
  cat("mmr mu ", mmr)
  if (mmr < 999) {
    cat("mmr tingkat kecamatan\n")
  } else if (mmr <= 1000) {
    cat("mmr tingkat kota\n")
  } else if (mmr<= 2000){
    cat("mmr tingkat provinsi\n")
  } else if (mmr <= 3000) {
    cat("mmr tingkat kota\n")
  } else if (mmr <= 5000) {
    cat("mmr tingkat negara\n")
  } else if (mmr <= 6000) {
    cat("mmr tingkat dunia\n")
  }
}
cek_mmr(5100)

## mmr mu  5100mmr tingkat dunia