# Datos
altura <- c(160, 175, 168, 180, 165, 158, 152, 176, 170, 148)
edad <- c(25, 30, 22, 35, 28, 20, 39, 19, 25, 24)
peso <- c(58, 75, 62, 80, 60, 72, 64, 70, 73, 57)

# Modelo de regresión
modelo <- lm(peso ~ altura + edad)
summary(modelo)