Basic Data Summary

rCopy code# Summary statistics
summary(data)

# Calculate mean height and weight
mean_height <- mean(data$height)
mean_weight <- mean(data$weight)

cat("Mean Height:", mean_height, "\n")
cat("Mean Weight:", mean_weight, "\n")