@Yuliana12345

# 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)

print("Datos") print("cantidad 1") Yn1 <- 25 Yn1 print("cantidad 2") Yn2 <- 36 Yn2 print("media") Ymedia1 <- 81 Ymedia1

print("Datos") print("muestra") Yn <- 20 Yn print("promedio mestral") Ymedia_muestra <- 33.1 Ymedia_muestra print("media bajo Ho") Ymedia_hipotetica <- 35 Ymedia_hipotetica

print("Datos") print("Tamano de muestra") print("Corredoras") Yn1<-30 Yn1 print("Sedentarias") Yn2<-30 Yn2 print("Medias") Ymedia1<-34.0

print("Datos") print("Muestra de algodon") Yn1 <- 25 Yn1 print("Muestra de acetato") Yn2 <- 25 Yn2 print("Media") print("Algodon") Ymedia1 <- 20