Tarea 3

data(“ChickWeight”)

head(ChickWeight) str(ChickWeight) summary(ChickWeight)

Dieta1 <- subset(ChickWeight, Diet == 1) Dieta2 <- subset(ChickWeight, Diet == 2) Dieta3 <- subset(ChickWeight, Diet == 3) Dieta4 <- subset(ChickWeight, Diet == 4)

head(Dieta1) head(Dieta2) head(Dieta3) head(Dieta4)