Esto es el primer ejercicio:
## R version 4.2.1 (2022-06-23 ucrt)
## Platform: x86_64-w64-mingw32/x64 (64-bit)
## Running under: Windows 10 x64 (build 19045)
##
## Matrix products: default
##
## locale:
## [1] LC_COLLATE=Spanish_Spain.utf8 LC_CTYPE=Spanish_Spain.utf8
## [3] LC_MONETARY=Spanish_Spain.utf8 LC_NUMERIC=C
## [5] LC_TIME=Spanish_Spain.utf8
##
## attached base packages:
## [1] stats graphics grDevices utils datasets methods base
##
## loaded via a namespace (and not attached):
## [1] digest_0.6.29 R6_2.5.1 lifecycle_1.0.3 jsonlite_1.8.0
## [5] magrittr_2.0.3 evaluate_0.16 stringi_1.7.8 cachem_1.0.6
## [9] rlang_1.0.6 cli_3.6.0 rstudioapi_0.14 jquerylib_0.1.4
## [13] bslib_0.4.0 vctrs_0.5.1 rmarkdown_2.17 tools_4.2.1
## [17] stringr_1.5.0 glue_1.6.2 xfun_0.38 yaml_2.3.5
## [21] fastmap_1.1.0 compiler_4.2.1 htmltools_0.5.3 knitr_1.40
## [25] sass_0.4.2## [1] ".GlobalEnv" "package:stats" "package:graphics"
## [4] "package:grDevices" "package:utils" "package:datasets"
## [7] "package:methods" "Autoloads" "package:base"## Warning in library(): library 'C:/Users/Jesús
## Llano/AppData/Local/R/win-library/4.2' contains no packages## starting httpd help server ... done## [1] ".GlobalEnv" "package:survival" "package:MASS"
## [4] "package:stats" "package:graphics" "package:grDevices"
## [7] "package:utils" "package:datasets" "package:methods"
## [10] "Autoloads" "package:base"Ahora vemos los resultados son el echo = True, de esta forma aparece el código que ponemos, incluidos los comentarios que se incluyen en el chunk y los resultados de cada una de las operaciones
sessionInfo()## R version 4.2.1 (2022-06-23 ucrt)
## Platform: x86_64-w64-mingw32/x64 (64-bit)
## Running under: Windows 10 x64 (build 19045)
##
## Matrix products: default
##
## locale:
## [1] LC_COLLATE=Spanish_Spain.utf8 LC_CTYPE=Spanish_Spain.utf8
## [3] LC_MONETARY=Spanish_Spain.utf8 LC_NUMERIC=C
## [5] LC_TIME=Spanish_Spain.utf8
##
## attached base packages:
## [1] stats graphics grDevices utils datasets methods base
##
## other attached packages:
## [1] survival_3.3-1 MASS_7.3-57
##
## loaded via a namespace (and not attached):
## [1] rstudioapi_0.14 knitr_1.40 magrittr_2.0.3 splines_4.2.1
## [5] lattice_0.20-45 R6_2.5.1 rlang_1.0.6 fastmap_1.1.0
## [9] stringr_1.5.0 tools_4.2.1 grid_4.2.1 xfun_0.38
## [13] cli_3.6.0 jquerylib_0.1.4 htmltools_0.5.3 yaml_2.3.5
## [17] digest_0.6.29 lifecycle_1.0.3 Matrix_1.5-1 sass_0.4.2
## [21] vctrs_0.5.1 glue_1.6.2 cachem_1.0.6 evaluate_0.16
## [25] rmarkdown_2.17 stringi_1.7.8 compiler_4.2.1 bslib_0.4.0
## [29] jsonlite_1.8.0#install.packages("MASS", "Survival")
search() #Lista de los paquetes cargados## [1] ".GlobalEnv" "package:survival" "package:MASS"
## [4] "package:stats" "package:graphics" "package:grDevices"
## [7] "package:utils" "package:datasets" "package:methods"
## [10] "Autoloads" "package:base"library() #Comprobar los paquetes instalados## Warning in library(): library 'C:/Users/Jesús
## Llano/AppData/Local/R/win-library/4.2' contains no packageslibrary("MASS")
library("survival")
??Rcmdr
search()## [1] ".GlobalEnv" "package:survival" "package:MASS"
## [4] "package:stats" "package:graphics" "package:grDevices"
## [7] "package:utils" "package:datasets" "package:methods"
## [10] "Autoloads" "package:base"data ("anorexia")
table(is.na(anorexia))##
## FALSE
## 216table(is.null(anorexia)) #Valores nulos##
## FALSE
## 1anorexia_F<- factor(anorexia$Treat,levels=c("CBT","Cont","FT"),labels=c("Cogn Beh Tr","Contr","Fam Tr"))data("biopsy")
write.csv(biopsy, file = "Ej4_biopsy.csv")
write.table(Melanoma, file = "Ej4_melanoma_txt")
write.table(Melanoma, file = "Ej4_melanoma_sep_txt", sep = ";")
#installed.packages("xlsx")
#library(xls2)
#write.xls2(Melanoma, file = "Ej4_melanoma_foreign.spss", package = "SPSS")data("birthwt")
View(birthwt)
head(birthwt)## low age lwt race smoke ptl ht ui ftv bwt
## 85 0 19 182 2 0 0 0 1 0 2523
## 86 0 33 155 3 0 0 0 0 3 2551
## 87 0 20 105 1 1 0 0 0 1 2557
## 88 0 21 108 1 1 0 0 1 2 2594
## 89 0 18 107 1 1 0 0 1 0 2600
## 91 0 21 124 3 0 0 0 0 0 2622summary(birthwt)## low age lwt race
## Min. :0.0000 Min. :14.00 Min. : 80.0 Min. :1.000
## 1st Qu.:0.0000 1st Qu.:19.00 1st Qu.:110.0 1st Qu.:1.000
## Median :0.0000 Median :23.00 Median :121.0 Median :1.000
## Mean :0.3122 Mean :23.24 Mean :129.8 Mean :1.847
## 3rd Qu.:1.0000 3rd Qu.:26.00 3rd Qu.:140.0 3rd Qu.:3.000
## Max. :1.0000 Max. :45.00 Max. :250.0 Max. :3.000
## smoke ptl ht ui
## Min. :0.0000 Min. :0.0000 Min. :0.00000 Min. :0.0000
## 1st Qu.:0.0000 1st Qu.:0.0000 1st Qu.:0.00000 1st Qu.:0.0000
## Median :0.0000 Median :0.0000 Median :0.00000 Median :0.0000
## Mean :0.3915 Mean :0.1958 Mean :0.06349 Mean :0.1481
## 3rd Qu.:1.0000 3rd Qu.:0.0000 3rd Qu.:0.00000 3rd Qu.:0.0000
## Max. :1.0000 Max. :3.0000 Max. :1.00000 Max. :1.0000
## ftv bwt
## Min. :0.0000 Min. : 709
## 1st Qu.:0.0000 1st Qu.:2414
## Median :0.0000 Median :2977
## Mean :0.7937 Mean :2945
## 3rd Qu.:1.0000 3rd Qu.:3487
## Max. :6.0000 Max. :4990max(birthwt$age)## [1] 45min(birthwt$age)## [1] 14range(birthwt$age)## [1] 14 45rank<-max(birthwt$age)-min(birthwt$age)
rank## [1] 31birthwt$smoke[birthwt$bwt==min(birthwt$bwt)]## [1] 1birthwt$bwt[birthwt$age ==max(birthwt$age)]## [1] 4990birthwt$bwt[birthwt$ftv<2]## [1] 2523 2557 2600 2622 2637 2637 2663 2665 2722 2733 2751 2769 2769 2778 2807
## [16] 2821 2836 2863 2877 2906 2920 2920 2920 2948 2948 2977 2977 2922 3033 3062
## [31] 3062 3062 3062 3090 3090 3100 3104 3132 3175 3175 3203 3203 3203 3225 3225
## [46] 3232 3234 3260 3274 3317 3317 3331 3374 3374 3402 3416 3444 3459 3460 3473
## [61] 3544 3487 3544 3572 3572 3586 3600 3614 3614 3629 3637 3643 3651 3651 3651
## [76] 3651 3699 3728 3756 3770 3770 3770 3790 3799 3827 3884 3912 3940 3941 3941
## [91] 3969 3997 3997 4054 4054 4111 4174 4238 4593 4990 709 1135 1330 1474 1588
## [106] 1588 1701 1729 1790 1818 1885 1893 1899 1928 1936 1970 2055 2055 2084 2084
## [121] 2100 2125 2187 2187 2211 2225 2240 2240 2282 2296 2296 2325 2353 2353 2367
## [136] 2381 2381 2381 2410 2410 2410 2424 2442 2466 2466 2495 2495