print_max5 <- function(data) { data <- substr(data, 1, 5) cat("data =", data, "\n")}print_max5("1234567")# prints "data = 12345"