# Demonstrates a while loop, counting up

i <- 1
while (i <= 3) {
  cat("quack!\n")
  i <- i + 1
}