alturas <- c(160, 165, 170, 175, 180)
promedio_alturas <- mean(alturas)
print(paste(“El promedio de altura de las personas es:”, promedio_alturas))