Untitled

options(repos = c(CRAN = "https://cran.rediris.es"))

install.packages("knitr")

## Installing package into 'C:/Users/Monica/AppData/Local/R/win-library/4.5'
## (as 'lib' is unspecified)

## package 'knitr' successfully unpacked and MD5 sums checked
## 
## The downloaded binary packages are in
##  C:\Users\Monica\AppData\Local\Temp\RtmpuoGgNt\downloaded_packages

library()
install.packages("MASS")

## Installing package into 'C:/Users/Monica/AppData/Local/R/win-library/4.5'
## (as 'lib' is unspecified)

## package 'MASS' successfully unpacked and MD5 sums checked

## Warning: cannot remove prior installation of package 'MASS'

## Warning in file.copy(savedcopy, lib, recursive = TRUE): problema al copiar
## C:\Users\Monica\AppData\Local\R\win-library\4.5\00LOCK\MASS\libs\x64\MASS.dll a
## C:\Users\Monica\AppData\Local\R\win-library\4.5\MASS\libs\x64\MASS.dll:
## Permission denied

## Warning: restored 'MASS'

## 
## The downloaded binary packages are in
##  C:\Users\Monica\AppData\Local\Temp\RtmpuoGgNt\downloaded_packages

library(MASS)
data("anorexia")

diferencia<-c(anorexia$Postwt-anorexia$Prewt)
anorexia_treat_df<-data.frame(anorexia$Treat, diferencia)
anorexia_treat_df

##    anorexia.Treat diferencia
## 1            Cont       -0.5
## 2            Cont       -9.3
## 3            Cont       -5.4
## 4            Cont       12.3
## 5            Cont       -2.0
## 6            Cont      -10.2
## 7            Cont      -12.2
## 8            Cont       11.6
## 9            Cont       -7.1
## 10           Cont        6.2
## 11           Cont       -0.2
## 12           Cont       -9.2
## 13           Cont        8.3
## 14           Cont        3.3
## 15           Cont       11.3
## 16           Cont        0.0
## 17           Cont       -1.0
## 18           Cont      -10.6
## 19           Cont       -4.6
## 20           Cont       -6.7
## 21           Cont        2.8
## 22           Cont        0.3
## 23           Cont        1.8
## 24           Cont        3.7
## 25           Cont       15.9
## 26           Cont      -10.2
## 27            CBT        1.7
## 28            CBT        0.7
## 29            CBT       -0.1
## 30            CBT       -0.7
## 31            CBT       -3.5
## 32            CBT       14.9
## 33            CBT        3.5
## 34            CBT       17.1
## 35            CBT       -7.6
## 36            CBT        1.6
## 37            CBT       11.7
## 38            CBT        6.1
## 39            CBT        1.1
## 40            CBT       -4.0
## 41            CBT       20.9
## 42            CBT       -9.1
## 43            CBT        2.1
## 44            CBT       -1.4
## 45            CBT        1.4
## 46            CBT       -0.3
## 47            CBT       -3.7
## 48            CBT       -0.8
## 49            CBT        2.4
## 50            CBT       12.6
## 51            CBT        1.9
## 52            CBT        3.9
## 53            CBT        0.1
## 54            CBT       15.4
## 55            CBT       -0.7
## 56             FT       11.4
## 57             FT       11.0
## 58             FT        5.5
## 59             FT        9.4
## 60             FT       13.6
## 61             FT       -2.9
## 62             FT       -0.1
## 63             FT        7.4
## 64             FT       21.5
## 65             FT       -5.3
## 66             FT       -3.8
## 67             FT       13.4
## 68             FT       13.1
## 69             FT        9.0
## 70             FT        3.9
## 71             FT        5.7
## 72             FT       10.7

anorexia_treat_C_df<-subset(anorexia_treat_df,anorexia.Treat=="Cont"&anorexia_treat_df$diferencia>0)
anorexia_treat_C_df

##    anorexia.Treat diferencia
## 4            Cont       12.3
## 8            Cont       11.6
## 10           Cont        6.2
## 13           Cont        8.3
## 14           Cont        3.3
## 15           Cont       11.3
## 21           Cont        2.8
## 22           Cont        0.3
## 23           Cont        1.8
## 24           Cont        3.7
## 25           Cont       15.9