mpg <- cars_data$mpg avg <- mean(mpg) min <- min(mpg) max <- max(mpg) count <- length(mpg)
cat(“average =”, avg, “”) cat(“minimum =”, min, “”) cat(“maximum =”, max, “”) cat(“number of cars =”, count)