Ejercicio 9

A partir del conjunto de datos anorexia del paquete MASS, cread otro data frame que se llame anorexia_treat_df formado por Treat y por un vector nuevo calculado a partir de la diferencia Prewt-Postwt. De esta manera, nos quedará un data frame que contenga el tipo de tratamiento y el valor del peso ganado o perdido después de haber realizado el tratamiento.

library("MASS")
data("anorexia")
head(anorexia)
##   Treat Prewt Postwt
## 1  Cont  80.7   80.2
## 2  Cont  89.4   80.1
## 3  Cont  91.8   86.4
## 4  Cont  74.0   86.3
## 5  Cont  78.1   76.1
## 6  Cont  88.3   78.1
dif <- c(anorexia$Postwt-anorexia$Prewt)
head(dif)
## [1]  -0.5  -9.3  -5.4  12.3  -2.0 -10.2
anorexia_treat_df <- data.frame(anorexia$Treat, dif)
head(anorexia_treat_df)
##   anorexia.Treat   dif
## 1           Cont  -0.5
## 2           Cont  -9.3
## 3           Cont  -5.4
## 4           Cont  12.3
## 5           Cont  -2.0
## 6           Cont -10.2

Seleccionad aquellos individuos que han ganado peso después del tratamiento y cread un nuevo conjunto llamado anorexia_treat_C_df que contenga solo los datos de aquellos que han seguido el tratamiento «Cont» y que han ganado peso después del tratamiento.

anorexia_treat_C_df <- subset(anorexia_treat_df, anorexia_treat_df$anorexia.Treat=="Cont"&anorexia_treat_df$dif>0)
head(anorexia_treat_C_df)
##    anorexia.Treat  dif
## 4            Cont 12.3
## 8            Cont 11.6
## 10           Cont  6.2
## 13           Cont  8.3
## 14           Cont  3.3
## 15           Cont 11.3