# Sample R script — samplefiles.com
customers <- data.frame(
  id = 1:3,
  name = c("Ada", "Grace", "Linus"),
  balance = c(12500, 830.5, 10000)
)
customers$vip <- customers$balance >= 10000

for (i in seq_len(nrow(customers))) {
  c <- customers[i, ]
  cat(sprintf("%-6s %10.2f %s\n", c$name, c$balance, if (c$vip) "VIP" else ""))
}
cat(sprintf("Total: %.2f\n", sum(customers$balance)))
summary(customers$balance)