knitr::opts_chunk$set(warning = FALSE, echo = FALSE)
##  [1] "ID"                                  
##  [2] "Genero"                              
##  [3] "Edad (año sino mes)"                 
##  [4] "Nacionalidad"                        
##  [5] "Obra social(sí; no)"                 
##  [6] "Trabaja(sí; no)"                     
##  [7] "Nivel educativo completo"            
##  [8] "Diagnóstico especifico"              
##  [9] "Tejido"                              
## [10] "Diagnostico sencillo"                
## [11] "Segmento"                            
## [12] "Región"                              
## [13] "Tiempo de evolución (días)"          
## [14] "Clasificación Agudo/Subagudo/Crónico"
## [15] "Estudios complementarios"            
## [16] "Rx"                                  
## [17] "RMN"                                 
## [18] "TAC"                                 
## [19] "Eco"                                 
## [20] "EMG"
## tibble [723 × 20] (S3: tbl_df/tbl/data.frame)
##  $ ID                                  : num [1:723] 2 3 4 5 6 7 8 9 12 13 ...
##  $ Genero                              : Factor w/ 2 levels "0","1": 2 2 2 2 1 1 2 1 2 1 ...
##  $ Edad (año sino mes)                 : num [1:723] 38 26 57 52 29 52 55 60 18 16 ...
##  $ Nacionalidad                        : Factor w/ 7 levels "Argentina","Boliviana",..: 1 1 1 2 1 6 1 2 7 5 ...
##  $ Obra social(sí; no)                 : Factor w/ 2 levels "0","1": 2 1 1 1 1 1 1 1 1 1 ...
##  $ Trabaja(sí; no)                     : Factor w/ 2 levels "0","1": 2 2 2 2 1 2 2 2 1 1 ...
##  $ Nivel educativo completo            : Factor w/ 4 levels "Primario Completo",..: 3 3 4 1 3 3 1 3 3 1 ...
##  $ Diagnóstico especifico              : Factor w/ 163 levels "artrosis cadera",..: 20 84 104 84 136 100 84 7 68 19 ...
##  $ Tejido                              : Factor w/ 6 levels "Cartilago/sinovial/bursa",..: 3 3 5 3 5 6 3 3 2 5 ...
##  $ Diagnostico sencillo                : chr [1:723] "Lesión inespecifica" "Lesión inespecifica" "Tendinopatia" "Lesión inespecifica" ...
##  $ Segmento                            : Factor w/ 17 levels "Antebrazo","Brazo",..: 7 8 13 8 13 3 8 6 14 17 ...
##  $ Región                              : Factor w/ 5 levels "2 o mas regiones",..: 4 5 3 5 3 2 5 2 3 3 ...
##  $ Tiempo de evolución (días)          : num [1:723] 112 112 10950 730 1460 ...
##  $ Clasificación Agudo/Subagudo/Crónico: Factor w/ 3 levels "Agudo","Crónico",..: 2 2 2 2 2 1 2 NA 1 2 ...
##  $ Estudios complementarios            : Factor w/ 2 levels "0","1": 2 2 1 2 2 2 1 2 2 1 ...
##  $ Rx                                  : Factor w/ 2 levels "0","1": 2 2 1 2 2 1 1 2 2 1 ...
##  $ RMN                                 : Factor w/ 2 levels "0","1": 1 1 1 1 1 2 1 2 1 1 ...
##  $ TAC                                 : Factor w/ 2 levels "0","1": 1 1 1 1 1 2 1 1 2 1 ...
##  $ Eco                                 : Factor w/ 2 levels "0","1": 2 1 1 1 1 1 1 1 1 1 ...
##  $ EMG                                 : Factor w/ 2 levels "0","1": 1 1 1 1 1 1 1 1 1 1 ...
## [1] "Cartilago/sinovial/bursa" "Hueso"                   
## [3] "Inespecifico"             "Ligamento/capsula"       
## [5] "Musculo/Tendón"           "Nervio"
##                                   ID                               Genero 
##                            "numeric"                             "factor" 
##                  Edad (año sino mes)                         Nacionalidad 
##                            "numeric"                             "factor" 
##                  Obra social(sí; no)                      Trabaja(sí; no) 
##                             "factor"                             "factor" 
##             Nivel educativo completo               Diagnóstico especifico 
##                             "factor"                             "factor" 
##                               Tejido                 Diagnostico sencillo 
##                             "factor"                          "character" 
##                             Segmento                               Región 
##                             "factor"                             "factor" 
##           Tiempo de evolución (días) Clasificación Agudo/Subagudo/Crónico 
##                            "numeric"                             "factor" 
##             Estudios complementarios                                   Rx 
##                             "factor"                             "factor" 
##                                  RMN                                  TAC 
##                             "factor"                             "factor" 
##                                  Eco                                  EMG 
##                             "factor"                             "factor"
## # A tibble: 723 × 20
##       ID Genero `Edad (año sino mes)` Nacionalidad `Obra social(sí; no)`
##    <dbl> <fct>                  <dbl> <fct>        <fct>                
##  1     2 1                         38 Argentina    1                    
##  2     3 1                         26 Argentina    0                    
##  3     4 1                         57 Argentina    0                    
##  4     5 1                         52 Boliviana    0                    
##  5     6 0                         29 Argentina    0                    
##  6     7 0                         52 Peruana      0                    
##  7     8 1                         55 Argentina    0                    
##  8     9 0                         60 Boliviana    0                    
##  9    12 1                         18 Venezolana   0                    
## 10    13 0                         16 Paraguaya    0                    
## # ℹ 713 more rows
## # ℹ 15 more variables: `Trabaja(sí; no)` <fct>,
## #   `Nivel educativo completo` <fct>, `Diagnóstico especifico` <fct>,
## #   Tejido <fct>, `Diagnostico sencillo` <chr>, Segmento <fct>, Región <fct>,
## #   `Tiempo de evolución (días)` <dbl>,
## #   `Clasificación Agudo/Subagudo/Crónico` <fct>,
## #   `Estudios complementarios` <fct>, Rx <fct>, RMN <fct>, TAC <fct>, …

Analisis normalidad shapiro, edad y tiempo de evolución

## # A tibble: 2 × 4
##   variable                   statistic  p.value method                     
##   <chr>                          <dbl>    <dbl> <chr>                      
## 1 Edad (año sino mes)            0.983 2.26e- 7 Shapiro-Wilk normality test
## 2 Tiempo de evolución (días)     0.173 8.72e-47 Shapiro-Wilk normality test

Analisis por histogramas de edad y tiempo de evolución

Tiempo de evolución asimetrica, edad simetrica

##  Tiempo de evolución (días) Edad (año sino mes)
##  Min.   :    3.0            Min.   :15.0       
##  1st Qu.:   60.0            1st Qu.:41.0       
##  Median :  150.0            Median :52.0       
##  Mean   :  741.7            Mean   :50.2       
##  3rd Qu.:  365.0            3rd Qu.:60.0       
##  Max.   :36500.0            Max.   :88.0       
##  NA's   :61                 NA's   :1
## [1] 14.59785

Tiempo de evolución (dias): Mediana de 150 días, Q1 (60) Q3(365) Rango [3 - 36500], 62 datos faltantes

Edad en años: Media 50,15 SD 14,63

Frecuencias por categorias

Pacientes que tienen 1000 o mas dias de evolucion. Que hacemos con estos pacientes, ponemos un corte en sintomatologia porque hay valores que son irrisorios

## [1] 89