suppressPackageStartupMessages({library (knitr)})
source ("Analisis 1.R", echo=FALSE,encoding = "utf8")
## Authentication will be used.
## Sheet successfully identifed: "Evaluación cognitiva del anciano"
## Accessing worksheet titled "DatosECA"
## [1] "total en googlesheet: 262"
## [1] "excluidos por criterio: 32"
## [1] "excluidos por seguimiento: 6"
## [1] "desde:  2014-01-13"
## [1] "hasta:  2016-01-06"

tabla 1

require (dplyr)

knit_print (kable(tabla1,format = "html",caption = "Tabla por categoría diagnóstica"))
Tabla por categoría diagnóstica
Sin deterioro (n=65) DCL (n=123) Demencia (n=36) Todos Distribucion Datos faltantes P
sexoMasculino 19 (29.23%) 34 (27.64%) 8 (22.22%) 61 (27.23%) no normal 0 0.742
edad 73.58±6.98 77.83±6.83 82±5.86 77.27±7.26 normal 0 <0.001
añosdeeducacion 12 (12-16) 12 (7-15) 10 (7-15) 12 (7-15) no normal 0 <0.001
acompañante amigo 3 (4.62%) 15 (12.3%) 1 (2.78%) 19 (8.52%) no normal 1 <0.001
acompañante contratado 0 (0%) 1 (0.82%) 4 (11.11%) 5 (2.24%) no normal 1 <0.001
acompañante conyuge 8 (12.31%) 37 (30.33%) 9 (25%) 54 (24.22%) no normal 1 <0.001
acompañante hermano 1 (1.54%) 7 (5.74%) 1 (2.78%) 9 (4.04%) no normal 1 <0.001
acompañante hijo 6 (9.23%) 34 (27.87%) 17 (47.22%) 57 (25.56%) no normal 1 <0.001
acompañante nieto 0 (0%) 3 (2.46%) 0 (0%) 3 (1.35%) no normal 1 <0.001
acompañante solo 47 (72.31%) 25 (20.49%) 4 (11.11%) 76 (34.08%) no normal 1 <0.001
trabajaactualmente 26 (40%) 32 (26.02%) 1 (2.78%) 59 (26.34%) no normal 0 <0.001
añossintrabajar <=5 años 3 (7.69%) 7 (7.61%) 3 (8.57%) 13 (7.83%) no normal 58 1
añossintrabajar >5 años 36 (92.31%) 85 (92.39%) 32 (91.43%) 153 (92.17%) no normal 58 1
comorbilidadeshipertensionarterial 38 (58.46%) 77 (62.6%) 25 (69.44%) 140 (62.5%) no normal 0 0.551
comorbilidadesdiabetes 8 (12.31%) 13 (10.57%) 1 (2.78%) 22 (9.82%) no normal 0 0.289
comorbilidadesdislipemia 43 (66.15%) 65 (52.85%) 20 (55.56%) 128 (57.14%) no normal 0 0.21
comorbilidadesacv 1 (1.54%) 1 (0.81%) 0 (0%) 2 (0.89%) no normal 0 1
comorbilidadesalcoholismo 1 (1.54%) 2 (1.63%) 0 (0%) 3 (1.34%) no normal 0 1
comorbilidadestabaquismo 16 (24.62%) 44 (35.77%) 11 (30.56%) 71 (31.7%) no normal 0 0.291
comorbilidadescaidas 8 (12.31%) 28 (22.76%) 6 (16.67%) 42 (18.75%) no normal 0 0.204
farmacosirss 10 (15.38%) 34 (27.64%) 12 (33.33%) 56 (25%) no normal 0 0.082
farmacostrici­clicos 1 (1.54%) 0 (0%) 0 (0%) 1 (0.45%) no normal 0 0.453
farmacosquetiapina 1 (1.54%) 5 (4.07%) 2 (5.56%) 8 (3.57%) no normal 0 0.625
farmacosrisperidona 0 (0%) 0 (0%) 1 (2.78%) 1 (0.45%) no normal 0 0.151
farmacosdonepecilo 1 (1.54%) 2 (1.63%) 5 (13.89%) 8 (3.57%) no normal 0 0.005
farmacosrivastigmina 0 (0%) 0 (0%) 0 (0%) 0 (0%) no normal 0 error
farmacosmemantine 0 (0%) 5 (4.07%) 2 (5.56%) 7 (3.12%) no normal 0 0.241
farmacosbenzodiazepinas 31 (47.69%) 55 (44.72%) 15 (41.67%) 101 (45.09%) no normal 0 0.837
farmacosotros 1 (1.54%) 11 (8.94%) 3 (8.57%) 15 (6.73%) no normal 1 0.136
cocienteintelectual 101.29 (95.72-106.96) 95.73 (83.63-104.15) 91 (85.35-103.25) 97.12 (87.78-104.81) no normal 77 <0.001
tapr 44 (41-46) 40 (28.75-46) 39 (30.75-45) 41 (32-45.5) no normal 77 <0.001
mmse 29 (28-30) 28 (25-29) 23.5 (20-26) 28 (25-29) no normal 0 0.013
yesavage 2 (0-3) 2 (1-4) 1 (0-3.25) 2 (1-4) no normal 0 <0.001
cdr 0 (0-0.12) 0.5 (0.5-0.5) 1 (1-1) 0.5 (0.5-0.5) no normal 38 0.936
avd 8 (8-8) 8 (8-8) 8 (8-8) 8 (8-8) no normal 0 0.607
avdi 7 (7-7) 7 (6-7) 5 (4-6) 7 (6-7) no normal 0 0.08
dad 100 (100-100) 97.5 (95-100) 80 (68.42-92) 100 (92.5-100) no normal 13 <0.001
critotal 116.5 (109-135) 106 (92.75-129) 101.5 (85-114.75) 110.5 (94.25-129) no normal 26 <0.001
criescuela 119.5 (111-136.5) 114.5 (100-136.25) 114.5 (105-126) 116 (106-135) no normal 26 <0.001
critrabajo 118 (100.25-133) 104.5 (86-128) 88 (77.25-123) 106.5 (86-128.75) no normal 26 <0.001
critiempolibre 102.5 (93.25-123.75) 96 (85-108) 87.5 (75-99.25) 97 (87-111.75) no normal 26 <0.001
numeroidiomas 1 (1-2) 1 (1-2) 1 (1-2) 1 (1-2) no normal 21 0.102
miq 10 (9-11) 10 (8-12.5) 12 (7-14.5) 10 (8-13) no normal 185 0.011
ansgcp 10 (4-11) 9 (5-13) 8 (5-12) 9 (5-13) no normal 71 <0.001
ansgpp 5 (3-5) 3 (2-5) 3 (2-5) 4 (2-5) no normal 71 <0.001
ansgcf 5.5 (4-6.25) 9 (6-15) 19 (13.5-24) 10 (6-16.25) no normal 72 <0.001
ansgpf 2 (1-3) 3 (2-6) 7 (4-9.5) 4 (2-7) no normal 72 <0.001
puntajeANSG -6.12±4.15 0.98±9.83 13.62±12.56 2.67±11.51 normal 74 <0.001
fexpuntajedecambiototal 0 54 (90%) 81 (67.5%) 15 (45.45%) 150 (70.42%) no normal 11 0.001
fexpuntajedecambiototal 0.5 4 (6.67%) 26 (21.67%) 13 (39.39%) 43 (20.19%) no normal 11 0.001
fexpuntajedecambiototal 1 2 (3.33%) 8 (6.67%) 5 (15.15%) 15 (7.04%) no normal 11 0.001
fexpuntajedecambiototal 1.5 0 (0%) 3 (2.5%) 0 (0%) 3 (1.41%) no normal 11 <0.001
fexpuntajedecambiototal 2 0 (0%) 2 (1.67%) 0 (0%) 2 (0.94%) no normal 11 <0.001
fexpuntajedeperdidatotal 0 49 (81.67%) 60 (50%) 7 (21.21%) 116 (54.46%) no normal 11 <0.001
fexpuntajedeperdidatotal 0.5 0 (0%) 0 (0%) 1 (3.03%) 1 (0.47%) no normal 11 <0.001
fexpuntajedeperdidatotal 1 4 (6.67%) 6 (5%) 2 (6.06%) 12 (5.63%) no normal 11 <0.001
fexpuntajedeperdidatotal 10 0 (0%) 1 (0.83%) 1 (3.03%) 2 (0.94%) no normal 11 <0.001
fexpuntajedeperdidatotal 2 0 (0%) 5 (4.17%) 1 (3.03%) 6 (2.82%) no normal 11 <0.001
fexpuntajedeperdidatotal 3 7 (11.67%) 31 (25.83%) 9 (27.27%) 47 (22.07%) no normal 11 <0.001
fexpuntajedeperdidatotal 4 0 (0%) 5 (4.17%) 4 (12.12%) 9 (4.23%) no normal 11 <0.001
fexpuntajedeperdidatotal 5 0 (0%) 2 (1.67%) 1 (3.03%) 3 (1.41%) no normal 11 <0.001
fexpuntajedeperdidatotal 6 0 (0%) 7 (5.83%) 3 (9.09%) 10 (4.69%) no normal 11 <0.001
fexpuntajedeperdidatotal 7 0 (0%) 0 (0%) 2 (6.06%) 2 (0.94%) no normal 11 <0.001
fexpuntajedeperdidatotal 8 0 (0%) 0 (0%) 1 (3.03%) 1 (0.47%) no normal 11 <0.001
fexpuntajedeperdidatotal 9 0 (0%) 3 (2.5%) 1 (3.03%) 4 (1.88%) no normal 11 <0.001
gbtotallibre 29 (25-32) 20 (12-24) 6 (2.5-16.5) 22 (12.5-28) no normal 1 <0.001
gbtotalfacilitado 18.28±4.12 20.37±5.95 18.57±7.73 19.48±5.87 normal 1 0.04
gbrecuerdostotales 48 (47-48) 42 (33-46) 27 (19.5-40) 45 (34.5-47) no normal 1 <0.001
intrusiones 4 (6.25%) 65 (52.85%) 24 (68.57%) 93 (41.89%) no normal 2 <0.001
recuerdodiferidolibre 11 (10-12) 7 (4-9) 0 (0-4) 8 (4-11) no normal 1 0.029
recuerdodiferidofacilitado 5 (3-6) 6 (5-8) 7 (4-9) 6 (4-8) no normal 1 0.065
recuerdodiferidototal 16 (16-16) 15 (11-16) 9 (6-13.5) 15 (11-16) no normal 1 <0.001
digitosdirectos 6 (6-7) 6 (5-6) 5.5 (5-6) 6 (5-6) no normal 4 0.289
digitosreversos 4 (4-5) 4 (3-4) 3 (3-4) 4 (3-5) no normal 4 0.289
waistotal 14 (13-16) 13 (11-14.5) 12.5 (10.75-14) 13 (11-15) no normal 4 <0.001
tmta 41 (34-48) 67 (50-85.75) 92.5 (59.5-122.25) 58 (43-84) no normal 1 <0.001
tmtb 83 (75-103) 174 (121-269.25) 312.5 (188-350) 149 (94-246.5) no normal 1 <0.001
refranes 3 (3-3) 2 (1-3) 1 (0-2) 2 (1-3) no normal 2 0.282
reloj 7 (7-7) 6 (4.5-7) 4.5 (0-6) 7 (5-7) no normal 0 0.014
fluenciasemantica 19 (16-21) 14 (11-17) 11 (9-14.5) 15 (12-19) no normal 4 0.006
fluenciafonologica 15 (12-17) 10 (7-13) 8 (6-11) 11 (8-15) no normal 4 0.002
denominaciondeboston 53 (51-55) 48 (41-53) 40 (30.5-49.5) 50 (42-53) no normal 3 0.001
copiafiguraderey 36 (34-36) 33 (26-35) 24 (11.25-29) 34 (26.75-35) no normal 96 <0.001
tipodecopiaderey 2 (2-4) 4 (2-4) 4 (4-4) 4 (2-4) no normal 98 0.07
tsh 2.29 (1.14-3.99) 2 (1.34-3.05) 1.86 (1.36-3.34) 2 (1.32-3.31) no normal 103 <0.001
calcemia 9.51±0.27 9.44±0.36 9.48±0.38 9.46±0.35 normal 120 0.763
vdrlpositiva 0 (0%) 0 (0%) 0 (0%) 0 (0%) no normal 134 error
vitaminab12 255.5 (179.75-426.25) 314.5 (223.25-392.5) 246 (198-756) 312 (218.5-414.5) no normal 113 <0.001
fasekasspv . 1 (5.88%) 0 (0%) 0 (0%) 1 (0.84%) no normal 105 0.14
fasekasspv 0 6 (35.29%) 20 (25.97%) 5 (20%) 31 (26.05%) no normal 105 0.159
fasekasspv 1 8 (47.06%) 38 (49.35%) 9 (36%) 55 (46.22%) no normal 105 0.159
fasekasspv 2 1 (5.88%) 11 (14.29%) 6 (24%) 18 (15.13%) no normal 105 0.149
fasekasspv 3 1 (5.88%) 8 (10.39%) 5 (20%) 14 (11.76%) no normal 105 0.166
fasekassbp 0 6 (37.5%) 22 (28.57%) 7 (26.92%) 35 (29.41%) no normal 105 0.866
fasekassbp 1 7 (43.75%) 35 (45.45%) 9 (34.62%) 51 (42.86%) no normal 105 0.866
fasekassbp 2 2 (12.5%) 13 (16.88%) 7 (26.92%) 22 (18.49%) no normal 105 0.86
fasekassbp 3 1 (6.25%) 7 (9.09%) 3 (11.54%) 11 (9.24%) no normal 105 0.854
infartolacunar 1 (6.25%) 10 (12.99%) 3 (11.54%) 14 (11.76%) no normal 105 0.754
acvcsb 0 (0%) 2 (2.6%) 1 (4%) 3 (2.54%) no normal 106 1
atrofiahipocampos 2 (12.5%) 37 (48.05%) 18 (69.23%) 57 (47.9%) no normal 105 0.002
diagnostico DCL A 0 (0%) 39 (31.71%) 0 (0%) 39 (17.41%) no normal 0 <0.001
diagnostico DCL MD 0 (0%) 84 (68.29%) 0 (0%) 84 (37.5%) no normal 0 <0.001
diagnostico DTA 0 (0%) 0 (0%) 16 (44.44%) 16 (7.14%) no normal 0 <0.001
diagnostico Mixta 0 (0%) 0 (0%) 14 (38.89%) 14 (6.25%) no normal 0 <0.001
diagnostico Otras 0 (0%) 0 (0%) 5 (13.89%) 5 (2.23%) no normal 0 <0.001
diagnostico Sin deterioro 65 (100%) 0 (0%) 0 (0%) 65 (29.02%) no normal 0 <0.001
diagnostico Vascular 0 (0%) 0 (0%) 1 (2.78%) 1 (0.45%) no normal 0 <0.001 
##Analisis post-hoc

CI<-aov(data = datos.filtrados,formula = cocienteintelectual~diagnosticoCat)
TukeyHSD(CI)
##   Tukey multiple comparisons of means
##     95% family-wise confidence level
## 
## Fit: aov(formula = cocienteintelectual ~ diagnosticoCat, data = datos.filtrados)
## 
## $diagnosticoCat
##                               diff        lwr        upr     p adj
## DCL-Sin deterioro      -7.53372214 -13.376507 -1.6909374 0.0075499
## Demencia-Sin deterioro -7.45825461 -14.751734 -0.1647757 0.0437898
## Demencia-DCL            0.07546753  -5.994372  6.1453074 0.9995221
Critotal<-aov(data = datos.filtrados,formula = critotal~diagnosticoCat)
TukeyHSD(Critotal)
##   Tukey multiple comparisons of means
##     95% family-wise confidence level
## 
## Fit: aov(formula = critotal ~ diagnosticoCat, data = datos.filtrados)
## 
## $diagnosticoCat
##                              diff       lwr       upr     p adj
## DCL-Sin deterioro      -12.177931 -21.15690 -3.198964 0.0045072
## Demencia-Sin deterioro -18.352500 -30.36776 -6.337237 0.0011395
## Demencia-DCL            -6.174569 -16.77231  4.423170 0.3554629
Criescuela<-aov(data = datos.filtrados,formula = criescuela~diagnosticoCat)
TukeyHSD(Criescuela)
##   Tukey multiple comparisons of means
##     95% family-wise confidence level
## 
## Fit: aov(formula = criescuela ~ diagnosticoCat, data = datos.filtrados)
## 
## $diagnosticoCat
##                              diff       lwr      upr     p adj
## DCL-Sin deterioro      -4.9768966 -13.54397 3.590173 0.3575892
## Demencia-Sin deterioro -5.5512500 -17.01533 5.912829 0.4884723
## Demencia-DCL           -0.5743534 -10.68594 9.537229 0.9901280
Critrabajo<-aov(data = datos.filtrados,formula = critrabajo~diagnosticoCat)
TukeyHSD(Critrabajo)
##   Tukey multiple comparisons of means
##     95% family-wise confidence level
## 
## Fit: aov(formula = critrabajo ~ diagnosticoCat, data = datos.filtrados)
## 
## $diagnosticoCat
##                            diff       lwr        upr     p adj
## DCL-Sin deterioro       -9.8000 -20.58695  0.9869459 0.0834552
## Demencia-Sin deterioro -15.8625 -30.29712 -1.4278789 0.0273408
## Demencia-DCL            -6.0625 -18.79417  6.6691687 0.5000844
Critiempolibre<-aov(data = datos.filtrados,formula = critiempolibre~diagnosticoCat)
TukeyHSD(Critiempolibre)
##   Tukey multiple comparisons of means
##     95% family-wise confidence level
## 
## Fit: aov(formula = critiempolibre ~ diagnosticoCat, data = datos.filtrados)
## 
## $diagnosticoCat
##                              diff       lwr         upr     p adj
## DCL-Sin deterioro      -11.583103 -18.61001  -4.5561922 0.0003980
## Demencia-Sin deterioro -20.008750 -29.41186 -10.6056435 0.0000034
## Demencia-DCL            -8.425647 -16.71940  -0.1318898 0.0455330
Educacion<-aov(data = datos.filtrados,formula = añosdeeducacion~diagnosticoCat)
TukeyHSD(Educacion)
##   Tukey multiple comparisons of means
##     95% family-wise confidence level
## 
## Fit: aov(formula = añosdeeducacion ~ diagnosticoCat, data = datos.filtrados)
## 
## $diagnosticoCat
##                              diff       lwr        upr     p adj
## DCL-Sin deterioro      -2.0745466 -3.592999 -0.5560944 0.0041438
## Demencia-Sin deterioro -2.3448718 -4.402108 -0.2876355 0.0209486
## Demencia-DCL           -0.2703252 -2.146728  1.6060781 0.9383082
Idiomas<-aov(data = datos.filtrados,formula = numeroidiomas~diagnosticoCat)
TukeyHSD(Idiomas)
##   Tukey multiple comparisons of means
##     95% family-wise confidence level
## 
## Fit: aov(formula = numeroidiomas ~ diagnosticoCat, data = datos.filtrados)
## 
## $diagnosticoCat
##                                diff        lwr       upr     p adj
## DCL-Sin deterioro       0.056119981 -0.2973002 0.4095401 0.9254660
## Demencia-Sin deterioro  0.051457976 -0.4218590 0.5247749 0.9643295
## Demencia-DCL           -0.004662005 -0.4253823 0.4160583 0.9996226
tabla2<-creaTabla(datos = datos.filtrados[which(datos.filtrados$diagnosticoCat!="Sin deterioro"),variablesinteres],grupo = datos.filtrados$amnesicos[which(datos.filtrados$diagnosticoCat!="Sin deterioro")])
## Warning in wilcox.test.default(x = c(17L, 11L, 16L, 10L, 19L, 12L, 5L,
## 13L, : cannot compute exact p-value with ties
## Warning in wilcox.test.default(x = c(17L, 11L, 16L, 10L, 19L, 12L, 5L,
## 13L, : cannot compute exact p-value with ties
knit_print (kable(tabla2,format = "html",caption = "Tabla segun amnesico (DCL A y DTA) o no en pacientes con deterioro"))
Tabla segun amnesico (DCL A y DTA) o no en pacientes con deterioro
amnesicos (n=55) no amnesicos (n=104) Todos Distribucion Datos faltantes P
sexoMasculino 22 (40%) 20 (19.23%) 42 (26.42%) no normal 0 0.008
edad 78.64±7.23 78.85±6.65 78.77±6.84 normal 0 0.858
añosdeeducacion 12.33±4.49 10.49±4.28 11.13±4.43 normal 0 0.014
acompañante amigo 3 (5.56%) 13 (12.5%) 16 (10.13%) no normal 1 0.13
acompañante contratado 1 (1.85%) 4 (3.85%) 5 (3.16%) no normal 1 0.123
acompañante conyuge 20 (37.04%) 26 (25%) 46 (29.11%) no normal 1 0.132
acompañante hermano 5 (9.26%) 3 (2.88%) 8 (5.06%) no normal 1 0.135
acompañante hijo 16 (29.63%) 35 (33.65%) 51 (32.28%) no normal 1 0.139
acompañante nieto 2 (3.7%) 1 (0.96%) 3 (1.9%) no normal 1 0.128
acompañante solo 7 (12.96%) 22 (21.15%) 29 (18.35%) no normal 1 0.131
trabajaactualmente 14 (25.45%) 19 (18.27%) 33 (20.75%) no normal 0 0.309
añossintrabajar <=5 años 5 (12.2%) 5 (5.81%) 10 (7.87%) no normal 32 0.28
añossintrabajar >5 años 36 (87.8%) 81 (94.19%) 117 (92.13%) no normal 32 0.266
comorbilidadeshipertensionarterial 36 (65.45%) 66 (63.46%) 102 (64.15%) no normal 0 0.863
comorbilidadesdiabetes 6 (10.91%) 8 (7.69%) 14 (8.81%) no normal 0 0.56
comorbilidadesdislipemia 26 (47.27%) 59 (56.73%) 85 (53.46%) no normal 0 0.316
comorbilidadesacv 0 (0%) 1 (0.96%) 1 (0.63%) no normal 0 1
comorbilidadesalcoholismo 1 (1.82%) 1 (0.96%) 2 (1.26%) no normal 0 1
comorbilidadestabaquismo 22 (40%) 33 (31.73%) 55 (34.59%) no normal 0 0.3
comorbilidadescaidas 7 (12.73%) 27 (25.96%) 34 (21.38%) no normal 0 0.067
farmacosirss 6 (10.91%) 40 (38.46%) 46 (28.93%) no normal 0 <0.001
farmacostrici­clicos 0 (0%) 0 (0%) 0 (0%) no normal 0 error
farmacosquetiapina 0 (0%) 7 (6.73%) 7 (4.4%) no normal 0 0.097
farmacosrisperidona 1 (1.82%) 0 (0%) 1 (0.63%) no normal 0 0.346
farmacosdonepecilo 4 (7.27%) 3 (2.88%) 7 (4.4%) no normal 0 0.236
farmacosrivastigmina 0 (0%) 0 (0%) 0 (0%) no normal 0 error
farmacosmemantine 3 (5.45%) 4 (3.85%) 7 (4.4%) no normal 0 0.694
farmacosbenzodiazepinas 14 (25.45%) 56 (53.85%) 70 (44.03%) no normal 0 <0.001
farmacosotros 6 (11.11%) 8 (7.69%) 14 (8.86%) no normal 1 0.558
cocienteintelectual 96.66±11.68 91.91±12.66 93.43±12.5 normal 43 0.051
tapr 38.88±9.19 35.97±10.45 36.9±10.12 normal 43 0.133
mmse 25.69±3.4 25.97±3.13 25.87±3.22 normal 0 0.613
yesavage 2.29±2.27 2.81±2.91 2.63±2.71 normal 0 0.219
cdr 0.65±0.35 0.56±0.29 0.6±0.31 normal 17 0.109
avd 7.96±0.19 7.93±0.25 7.94±0.23 normal 0 0.385
avdi 5.93±1.27 6.23±1.26 6.13±1.27 normal 0 0.155
dad 89.65±13.31 92.83±13.19 91.68±13.27 normal 10 0.163
critotal 113.5 (91.75-128.5) 103 (89-119) 105 (89.75-126.25) no normal 11 0.079
criescuela 124.83±22.06 116.31±20.82 119.42±21.6 normal 11 0.023
critrabajo 113 (88-132.5) 101.5 (81.25-122) 104 (83-127.25) no normal 11 0.05
critiempolibre 91.5 (83.25-111) 95 (85-106) 94.5 (84-106.25) no normal 11 0.965
numeroidiomas 1.81±1.14 1.55±0.84 1.64±0.96 normal 9 0.156
miq 11.5 (7.75-13.75) 10 (6.75-12) 10.5 (7-13) no normal 129 0.287
ansgcp 9.24±5.57 10.18±6.2 9.81±5.95 normal 23 0.358
ansgpp 3.85±2.6 3.76±2.54 3.79±2.55 normal 23 0.832
ansgcf 13 (8-17) 11 (6-17) 12 (6-17) no normal 23 0.58
ansgpf 4.91±3.35 4.93±3.43 4.92±3.38 normal 23 0.97
puntajeANSG 5 (-2-10) 3 (-4-9) 3 (-3.75-9) no normal 25 0.321
fexpuntajedecambiototal 0 34 (64.15%) 62 (62%) 96 (62.75%) no normal 6 0.664
fexpuntajedecambiototal 0.5 15 (28.3%) 24 (24%) 39 (25.49%) no normal 6 0.653
fexpuntajedecambiototal 1 2 (3.77%) 11 (11%) 13 (8.5%) no normal 6 0.657
fexpuntajedecambiototal 1.5 1 (1.89%) 2 (2%) 3 (1.96%) no normal 6 0.674
fexpuntajedecambiototal 2 1 (1.89%) 1 (1%) 2 (1.31%) no normal 6 0.68
fexpuntajedeperdidatotal 0 20 (37.74%) 47 (47%) 67 (43.79%) no normal 6 0.685
fexpuntajedeperdidatotal 0.5 0 (0%) 1 (1%) 1 (0.65%) no normal 6 0.698
fexpuntajedeperdidatotal 1 3 (5.66%) 5 (5%) 8 (5.23%) no normal 6 0.7
fexpuntajedeperdidatotal 10 2 (3.77%) 0 (0%) 2 (1.31%) no normal 6 0.676
fexpuntajedeperdidatotal 2 1 (1.89%) 5 (5%) 6 (3.92%) no normal 6 0.69
fexpuntajedeperdidatotal 3 14 (26.42%) 26 (26%) 40 (26.14%) no normal 6 0.676
fexpuntajedeperdidatotal 4 4 (7.55%) 5 (5%) 9 (5.88%) no normal 6 0.662
fexpuntajedeperdidatotal 5 1 (1.89%) 2 (2%) 3 (1.96%) no normal 6 0.681
fexpuntajedeperdidatotal 6 4 (7.55%) 6 (6%) 10 (6.54%) no normal 6 0.676
fexpuntajedeperdidatotal 7 1 (1.89%) 1 (1%) 2 (1.31%) no normal 6 0.683
fexpuntajedeperdidatotal 8 1 (1.89%) 0 (0%) 1 (0.65%) no normal 6 0.688
fexpuntajedeperdidatotal 9 2 (3.77%) 2 (2%) 4 (2.61%) no normal 6 0.688
gbtotallibre 9.82±7.17 19.82±7.96 16.34±9.04 normal 1 <0.001
gbtotalfacilitado 17 (12.5-23) 22 (18-25) 21 (16-24) no normal 1 <0.001
gbrecuerdostotales 28 (19.5-37) 44 (39-46.5) 41 (29-45) no normal 1 <0.001
intrusiones 46 (83.64%) 43 (41.75%) 89 (56.33%) no normal 1 <0.001
recuerdodiferidolibre 2.44±2.56 7.08±3.77 5.46±4.05 normal 1 <0.001
recuerdodiferidofacilitado 5.75±2.98 6.81±2.71 6.44±2.84 normal 1 0.03
recuerdodiferidototal 8 (5-11.5) 15 (13.5-16) 14 (10-16) no normal 1 <0.001
digitosdirectos 5.91±1.16 5.4±0.98 5.57±1.07 normal 4 0.008
digitosreversos 3.98±1.07 3.49±1.02 3.66±1.06 normal 4 0.007
waistotal 13 (12-16) 12 (10-14) 13 (11-14) no normal 4 <0.001
tmta 68.71±37.89 87.83±43.46 81.17±42.47 normal 1 0.005
tmtb 179.07±105.52 237.94±96.09 217.45±103.05 normal 1 <0.001
refranes 1.73±1.1 1.64±1.08 1.67±1.08 normal 2 0.623
reloj 5.45±2.17 4.62±2.56 4.91±2.46 normal 0 0.033
fluenciasemantica 13 (9-15) 14 (11-17) 13 (10-16) no normal 4 0.09
fluenciafonologica 10.49±4.97 9.28±4.3 9.7±4.56 normal 4 0.137
denominaciondeboston 44.83±9.97 44.4±8.7 44.55±9.13 normal 3 0.789
copiafiguraderey 28.17±9.59 26.69±9.81 27.16±9.71 normal 64 0.492
tipodecopiaderey 3.5±1.04 3.46±1.15 3.47±1.11 normal 64 0.872
tsh 2.12±1.15 2.42±1.52 2.31±1.39 normal 56 0.257
calcemia 9.5 (9.2-9.6) 9.4 (9.3-9.6) 9.5 (9.25-9.6) no normal 68 0.807
vdrlpositiva 0 (0%) 0 (0%) 0 (0%) no normal 87 error
vitaminab12 388.35±326.73 446.68±374.63 422.73±355.12 normal 64 0.423
fasekasspv . 0 (0%) 0 (0%) 0 (0%) no normal 57 0.005
fasekasspv 0 17 (42.5%) 8 (12.9%) 25 (24.51%) no normal 57 0.005
fasekasspv 1 13 (32.5%) 34 (54.84%) 47 (46.08%) no normal 57 0.005
fasekasspv 2 7 (17.5%) 10 (16.13%) 17 (16.67%) no normal 57 0.005
fasekasspv 3 3 (7.5%) 10 (16.13%) 13 (12.75%) no normal 57 0.005
fasekassbp 0 17 (42.5%) 12 (19.05%) 29 (28.16%) no normal 56 0.053
fasekassbp 1 13 (32.5%) 31 (49.21%) 44 (42.72%) no normal 56 0.053
fasekassbp 2 8 (20%) 12 (19.05%) 20 (19.42%) no normal 56 0.048
fasekassbp 3 2 (5%) 8 (12.7%) 10 (9.71%) no normal 56 0.044
infartolacunar 2 (4.88%) 11 (17.74%) 13 (12.62%) no normal 56 0.071
acvcsb 0 (0%) 3 (4.92%) 3 (2.94%) no normal 57 0.272
atrofiahipocampos 31 (75.61%) 24 (38.71%) 55 (53.4%) no normal 56 <0.001
diagnostico DCL A 39 (70.91%) 0 (0%) 39 (24.53%) no normal 0 <0.001
diagnostico DCL MD 0 (0%) 84 (80.77%) 84 (52.83%) no normal 0 <0.001
diagnostico DTA 16 (29.09%) 0 (0%) 16 (10.06%) no normal 0 <0.001
diagnostico Mixta 0 (0%) 14 (13.46%) 14 (8.81%) no normal 0 <0.001
diagnostico Otras 0 (0%) 5 (4.81%) 5 (3.14%) no normal 0 <0.001
diagnostico Vascular 0 (0%) 1 (0.96%) 1 (0.63%) no normal 0 <0.001

graficos

library (ggplot2)
## Warning: package 'ggplot2' was built under R version 3.2.3
library (lattice)


##exclusion de paciente con ID 2173844 por outlier de dad y ANSG
datos.filtrados<-filter (datos.filtrados, !id=="2173844")


##funcion para calcular parametros de regresion lineal simple
parametrosRegresion<-function(datos){
    model<-lm(formula = datos[,2]~datos[,1])
    p<-summary (model)[[4]][2,4]
    r2<-summary (model)[[8]]
    return (paste ("R=",round(r2,3)," p=",round(p,3),sep=""))
}

##regresion de puntajeANSG~critotal segun diagnosticoCat
ansgvscri<-select (.data = datos.filtrados, critotal,puntajeANSG, diagnosticoCat)

by (ansgvscri,ansgvscri[,3],parametrosRegresion)
## ansgvscri[, 3]: Sin deterioro
## [1] "R=0.153 p=0.135"
## -------------------------------------------------------- 
## ansgvscri[, 3]: DCL
## [1] "R=0.007 p=0.395"
## -------------------------------------------------------- 
## ansgvscri[, 3]: Demencia
## [1] "R=0.005 p=0.709"
plot1<-ggplot(data = datos.filtrados, aes (x = critotal,y = puntajeANSG))+
    geom_point(size=3, color="black")+
    facet_grid(facets = .~diagnosticoCat)+
    geom_smooth(method="lm")+
    ylab("Puntaje de anasognosia")+
    xlab("CRI total")+
    theme_bw()

print (plot1)
## Warning: Removed 74 rows containing non-finite values (stat_smooth).
## Warning: Removed 74 rows containing missing values (geom_point).

##regresion de ansgcp~critotal segun diagnosticoCat
ansgPvscri<-select (.data = datos.filtrados, critotal,ansgcp, diagnosticoCat)

by (ansgvscri,ansgvscri[,3],parametrosRegresion)
## ansgvscri[, 3]: Sin deterioro
## [1] "R=0.153 p=0.135"
## -------------------------------------------------------- 
## ansgvscri[, 3]: DCL
## [1] "R=0.007 p=0.395"
## -------------------------------------------------------- 
## ansgvscri[, 3]: Demencia
## [1] "R=0.005 p=0.709"
plot2<-ggplot(data = datos.filtrados, aes (x = critotal,y = ansgcp))+
    geom_point(size=3, color="black")+
    facet_grid(facets = .~diagnosticoCat)+
    geom_smooth(method="lm")+
    ylab("Puntaje de anasognosia del paciente")+
    xlab("CRI total")+
    theme_bw()

print (plot2)
## Warning: Removed 71 rows containing non-finite values (stat_smooth).
## Warning: Removed 71 rows containing missing values (geom_point).

##regresion de dad~critotal segun diagnosticoCat
dadvscri<-select (.data = datos.filtrados, critotal,dad, diagnosticoCat)

by (dadvscri,dadvscri[,3],parametrosRegresion)
## dadvscri[, 3]: Sin deterioro
## [1] "R=0.005 p=0.654"
## -------------------------------------------------------- 
## dadvscri[, 3]: DCL
## [1] "R=0.004 p=0.517"
## -------------------------------------------------------- 
## dadvscri[, 3]: Demencia
## [1] "R=0.106 p=0.073"
plot3<-ggplot(data = datos.filtrados, aes (x = critotal,y = dad))+
    geom_point(size=3, color="black")+
    facet_grid(facets = .~diagnosticoCat)+
    geom_smooth(method="lm")+
    ylab("DAD")+
    xlab("CRI total")+
    theme_bw()

print (plot3)
## Warning: Removed 33 rows containing non-finite values (stat_smooth).
## Warning: Removed 33 rows containing missing values (geom_point).

##regresion de puntajeANSG~critotal segun diagnosticoCat y amnesico o no amnesico

dadvscriamnesicos<-filter(.data = datos.filtrados, amnesicos=="amnesicos")%>%
    select (critotal,dad, diagnosticoCat)
    
by (dadvscriamnesicos,dadvscriamnesicos[,3],parametrosRegresion)
## dadvscriamnesicos[, 3]: Sin deterioro
## [1] NA
## -------------------------------------------------------- 
## dadvscriamnesicos[, 3]: DCL
## [1] "R=0 p=0.996"
## -------------------------------------------------------- 
## dadvscriamnesicos[, 3]: Demencia
## [1] "R=0.004 p=0.806"
dadvscrinoamnesicos<-filter(.data = datos.filtrados, amnesicos=="no amnesicos")%>%
    select (critotal,dad, diagnosticoCat)
    
by (dadvscrinoamnesicos,dadvscrinoamnesicos[,3],parametrosRegresion)
## dadvscrinoamnesicos[, 3]: Sin deterioro
## [1] "R=0.005 p=0.654"
## -------------------------------------------------------- 
## dadvscrinoamnesicos[, 3]: DCL
## [1] "R=0.043 p=0.079"
## -------------------------------------------------------- 
## dadvscrinoamnesicos[, 3]: Demencia
## [1] "R=0.344 p=0.022"
plot4<-ggplot(data = datos.filtrados, aes (x = critotal,y = dad))+
    geom_point(size=3, color="black")+
    facet_grid(facets = amnesicos~diagnosticoCat)+
    geom_smooth(method="lm")+
    ylab("DAD")+
    xlab("CRI total")+
    theme_bw()

print (plot4)
## Warning: Removed 33 rows containing non-finite values (stat_smooth).
## Warning: Removed 33 rows containing missing values (geom_point).

####otros graficos######################################

plotrefranes<-ggplot(data = datos.filtrados, aes (x = as.factor(refranes),y = critotal))+
    geom_boxplot()+
    geom_jitter(color="blue")+
    facet_grid(facets = .~diagnosticoCat)+
    ylab("CRI total")+
    xlab("Refranes")+
    theme_bw()

print (plotrefranes)
## Warning: Removed 25 rows containing non-finite values (stat_boxplot).
## Warning: Removed 25 rows containing missing values (geom_point).

dad.educacion<-ggplot (data = datos.filtrados, aes(añosdeeducacion, dad))
dad.educacion<-dad.educacion+geom_point()+facet_grid(amnesicos~diagnosticoCat)+geom_smooth (method= "lm")
dad.educacion<-dad.educacion+xlab("años")+ggtitle ("Educación")

dad.critotal<-ggplot (data = datos.filtrados, aes(critotal, dad))
dad.critotal<-dad.critotal+geom_point()+facet_grid(amnesicos~diagnosticoCat)+geom_smooth (method= "lm")
dad.critotal<-dad.critotal+xlab("puntos")+ggtitle ("CRi total")

##ANSG y educacion y critotal

puntajeANSG.educacion<-ggplot (data = datos.filtrados, aes(añosdeeducacion, puntajeANSG))
puntajeANSG.educacion<-puntajeANSG.educacion+geom_point()+facet_grid(amnesicos~diagnosticoCat)+geom_smooth (method= "lm")
puntajeANSG.educacion<-puntajeANSG.educacion+xlab("años")+ggtitle ("Educación")

puntajeANSG.critotal<-ggplot (data = datos.filtrados, aes(critotal, puntajeANSG))
puntajeANSG.critotal<-puntajeANSG.critotal+geom_point()+facet_grid(amnesicos~diagnosticoCat)+geom_smooth (method= "lm")
puntajeANSG.critotal<-puntajeANSG.critotal+xlab("puntos")+ggtitle ("CRi total")


dad.critotal
## Warning: Removed 33 rows containing non-finite values (stat_smooth).
## Warning: Removed 33 rows containing missing values (geom_point).

puntajeANSG.critotal
## Warning: Removed 74 rows containing non-finite values (stat_smooth).
## Warning: Removed 74 rows containing missing values (geom_point).

dad.educacion
## Warning: Removed 13 rows containing non-finite values (stat_smooth).
## Warning: Removed 13 rows containing missing values (geom_point).

puntajeANSG.educacion
## Warning: Removed 73 rows containing non-finite values (stat_smooth).
## Warning: Removed 73 rows containing missing values (geom_point).

modelos de regresion de dad

##modelos dad y años de educacion y critotal
dadEducacionModel<-lm(formula = dad~añosdeeducacion,
                     data=filter(datos.filtrados,
                                 diagnosticoCat=="Demencia"))
summary (dadEducacionModel)
## 
## Call:
## lm(formula = dad ~ añosdeeducacion, data = filter(datos.filtrados, 
##     diagnosticoCat == "Demencia"))
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -22.9170 -11.0367  -0.5319  12.3982  24.2825 
## 
## Coefficients:
##                 Estimate Std. Error t value Pr(>|t|)    
## (Intercept)      90.3958     7.1504  12.642  1.5e-13 ***
## añosdeeducacion  -1.0399     0.6205  -1.676    0.104    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 14 on 30 degrees of freedom
##   (3 observations deleted due to missingness)
## Multiple R-squared:  0.08562,    Adjusted R-squared:  0.05514 
## F-statistic: 2.809 on 1 and 30 DF,  p-value: 0.1041
dadCritotalModel<-lm(formula = dad~critotal,
                      data=filter(datos.filtrados,
                                  diagnosticoCat=="Demencia"))
summary (dadCritotalModel)
## 
## Call:
## lm(formula = dad ~ critotal, data = filter(datos.filtrados, diagnosticoCat == 
##     "Demencia"))
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -25.259  -7.036  -2.495  11.907  24.569 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  98.8960    10.7627   9.189 4.34e-10 ***
## critotal     -0.1864     0.1003  -1.858   0.0733 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 13.98 on 29 degrees of freedom
##   (4 observations deleted due to missingness)
## Multiple R-squared:  0.1064, Adjusted R-squared:  0.0756 
## F-statistic: 3.453 on 1 and 29 DF,  p-value: 0.0733

modelos de regresion de puntajeANSG

##modelos puntajeANSG y años de educacion y critotal
puntajeANSGEducacionModel<-lm(formula = puntajeANSG~añosdeeducacion,
                     data=filter(datos.filtrados,
                                 diagnosticoCat=="Demencia"))
summary (puntajeANSGEducacionModel)
## 
## Call:
## lm(formula = puntajeANSG ~ añosdeeducacion, data = filter(datos.filtrados, 
##     diagnosticoCat == "Demencia"))
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -23.398  -8.412  -2.400   5.873  22.602 
## 
## Coefficients:
##                  Estimate Std. Error t value Pr(>|t|)  
## (Intercept)     12.444708   6.070168   2.050   0.0506 .
## añosdeeducacion -0.004668   0.512957  -0.009   0.9928  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 11.08 on 26 degrees of freedom
##   (7 observations deleted due to missingness)
## Multiple R-squared:  3.185e-06,  Adjusted R-squared:  -0.03846 
## F-statistic: 8.282e-05 on 1 and 26 DF,  p-value: 0.9928
puntajeANSGCritotalModel<-lm(formula = puntajeANSG~critotal,
                      data=filter(datos.filtrados,
                                  diagnosticoCat=="Demencia"))
summary (puntajeANSGCritotalModel)
## 
## Call:
## lm(formula = puntajeANSG ~ critotal, data = filter(datos.filtrados, 
##     diagnosticoCat == "Demencia"))
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -22.602  -7.533  -2.606   4.983  22.734 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)
## (Intercept)  9.15764    8.81700   1.039    0.309
## critotal     0.03055    0.08089   0.378    0.709
## 
## Residual standard error: 11.05 on 26 degrees of freedom
##   (7 observations deleted due to missingness)
## Multiple R-squared:  0.005456,   Adjusted R-squared:  -0.0328 
## F-statistic: 0.1426 on 1 and 26 DF,  p-value: 0.7087

tabla de datos de DCL según anasognosia*

datos.con.deterioro<-filter (datos.filtrados, diagnosticoCat!="Sin deterioro")

datos.con.deterioro$anasognosia<-ifelse(datos.con.deterioro$puntajeANSG>0,"Con anasognosia", "Sin anasognosia")

variablesinteres2<-c(12,13,34,35,40:45,77:95,111)

tabla2<-creaTabla(filter(datos.con.deterioro[,variablesinteres2]), datos.con.deterioro$anasognosia)

knit_print(kable(tabla2,format = "html",caption = "Pacientes con DCL y demencia"))
Pacientes con DCL y demencia
Con anasognosia (n=87) Sin anasognosia (n=46) Todos Distribucion Datos faltantes P
edad 79.7±6.57 77.43±6.91 78.72±6.83 normal 0 0.071
añosdeeducacion 10.71±4.7 11.65±4.35 11.12±4.44 normal 0 0.252
tapr 35.55±10.63 37.46±9.59 36.8±10.11 normal 43 0.371
mmse 25±3.42 27.09±2.01 25.92±3.18 normal 0 <0.001
dad 88.78±12.73 97.91±3.24 92.28±11.11 normal 10 <0.001
critotal 107.55±24.39 113.54±23.12 109.1±23.66 normal 11 0.167
criescuela 118.67±22.58 121.72±21.38 119.44±21.68 normal 11 0.447
critrabajo 105.02±27.67 110.17±28.14 106.13±27.69 normal 11 0.316
critiempolibre 94.69±18.15 98.91±16.24 95.83±17.35 normal 11 0.175
numeroidiomas 1.65±1.04 1.6±0.79 1.64±0.96 normal 9 0.762
gbtotallibre 13.84±8.79 19.7±7.85 16.42±9 normal 1 <0.001
gbtotalfacilitado 21 (14.5-24) 20 (17-25) 21 (16-24) no normal 1 0.751
gbrecuerdostotales 33.33±12.46 39.7±10.51 36.38±11.7 normal 1 0.002
intrusiones 56 (64.37%) 23 (50%) 88 (56.05%) no normal 1 0.138
recuerdodiferidolibre 4.36±3.8 6.7±3.88 5.5±4.04 normal 1 0.001
recuerdodiferidofacilitado 7 (5-8) 6 (4-8) 6 (5-8) no normal 1 0.387
recuerdodiferidototal 11.05±4.65 12.91±4.36 12.02±4.42 normal 1 0.024
digitosdirectos 5.48±1.15 5.66±0.91 5.56±1.07 normal 4 0.326
digitosreversos 3.67±1.16 3.61±0.89 3.66±1.06 normal 4 0.742
waistotal 12.66±3.68 12.59±2.81 12.73±3.33 normal 4 0.902
tmta 86±40.96 68.46±29.58 80.96±42.53 normal 1 0.005
tmtb 238.52±106.07 182.78±90.56 216.61±102.83 normal 1 0.002
refranes 1.44±1.07 2.02±1.01 1.66±1.08 normal 2 0.003
reloj 4.59±2.52 5.26±2.3 4.94±2.43 normal 0 0.123
fluenciasemantica 13 (10-16) 14 (12-16) 13.5 (10.25-16) no normal 4 0.12
fluenciafonologica 8.69±4.33 11.24±4.66 9.68±4.57 normal 4 0.003
denominaciondeboston 44.02±8.87 45.61±8.92 44.59±9.15 normal 3 0.331
copiafiguraderey 25.01±11.28 30.24±6.48 27.16±9.77 normal 64 0.012
tipodecopiaderey 3.59±1.16 3.3±1.02 3.47±1.11 normal 64 0.284
diagnosticoCat Sin deterioro 0 (0%) 0 (0%) 0 (0%) no normal 0 0.001
diagnosticoCat DCL 61 (70.11%) 44 (95.65%) 123 (77.85%) no normal 0 0.001
diagnosticoCat Demencia 26 (29.89%) 2 (4.35%) 35 (22.15%) no normal 0 0.001

grafico sujetos con anasognosia

library (tidyr)

datostmt<-select (datos.filtrados,diagnosticoCat, puntajeANSG, tmta,tmtb)%>%
    filter(diagnosticoCat!="Sin deterioro")%>%
    gather (key = tmt,... = -(diagnosticoCat:puntajeANSG))

grafico1<-ggplot(data = datostmt,aes(x=puntajeANSG,y = value, color=tmt))+
                    geom_point(size=3)+
                    geom_smooth(method="lm")+
                    facet_grid(.~diagnosticoCat)+
    ggtitle("TMT")
    

print (grafico1)
## Warning: Removed 50 rows containing non-finite values (stat_smooth).
## Warning: Removed 50 rows containing missing values (geom_point).

sujetos con puntajeANSG positivo

datosANSG<-filter(datos.filtrados, puntajeANSG>0)
qplot (data = datosANSG, x = critotal,y = dad)+geom_smooth(method="lm")
## Warning: Removed 1 rows containing non-finite values (stat_smooth).
## Warning: Removed 1 rows containing missing values (geom_point).

summary (lm(dad~critotal,data = datosANSG))
## 
## Call:
## lm(formula = dad ~ critotal, data = datosANSG)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -36.629  -8.318   5.285   9.972  14.447 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 94.45323    6.27908  15.043   <2e-16 ***
## critotal    -0.05235    0.05696  -0.919    0.361    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 12.81 on 84 degrees of freedom
##   (1 observation deleted due to missingness)
## Multiple R-squared:  0.009959,   Adjusted R-squared:  -0.001828 
## F-statistic: 0.8449 on 1 and 84 DF,  p-value: 0.3606

Analisis por percepcion de estado ansgpp y ansgcp del paciente

ansQuantile<-quantile (datos.con.deterioro$ansgcp, probs = c(0,1/3,2/3,1),na.rm = TRUE)
ansgPacienteCut<-with(datos.con.deterioro,{
    cut(ansgcp, ansQuantile)
})

qplot (x = ansgPacienteCut,y = mmse,data = datos.con.deterioro, geom = "boxplot")+xlab("anscp")+geom_point( position=position_jitter(w=0.1), color="red")

qplot (x = ansgPacienteCut,y = dad,data = datos.con.deterioro, geom = "boxplot")+xlab("anscp")+geom_point( position=position_jitter(w=0.1), color="red")
## Warning: Removed 10 rows containing non-finite values (stat_boxplot).
## Warning: Removed 10 rows containing missing values (geom_point).

qplot (x = ansgPacienteCut,y = tmta,data = datos.con.deterioro, geom = "boxplot")+xlab("anscp")+geom_point( position=position_jitter(w=0.1), color="red")
## Warning: Removed 1 rows containing non-finite values (stat_boxplot).
## Warning: Removed 1 rows containing missing values (geom_point).

qplot (x = ansgPacienteCut,y = tmtb,data = datos.con.deterioro, geom = "boxplot")+xlab("anscp")+geom_point( position=position_jitter(w=0.1), color="red")
## Warning: Removed 1 rows containing non-finite values (stat_boxplot).
## Warning: Removed 1 rows containing missing values (geom_point).

qplot (x = ansgPacienteCut,y = cdr,data = datos.con.deterioro, geom = "boxplot")+xlab("anscp")+geom_point( position=position_jitter(w=0.1), color="red")
## Warning: Removed 17 rows containing non-finite values (stat_boxplot).
## Warning: Removed 17 rows containing missing values (geom_point).

qplot (x = ansgPacienteCut,y = gbrecuerdostotales,data = datos.con.deterioro, geom = "boxplot")+xlab("anscp")+geom_point( position=position_jitter(w=0.1), color="red")
## Warning: Removed 1 rows containing non-finite values (stat_boxplot).
## Warning: Removed 1 rows containing missing values (geom_point).

tabla3<-creaTabla(datos=select(datos.con.deterioro,
                               mmse,
                               dad,
                               tmta,
                               tmtb,
                               dad,
                               gbrecuerdostotales,
                               refranes,
                               fluenciasemantica,
                               fluenciafonologica,
                               reloj,
                               digitosdirectos,
                               digitosreversos,
                               waistotal,
                               denominaciondeboston,
                               critotal,
                               añosdeeducacion,
                               tapr
                               ), ansgPacienteCut)


knit_print (kable(tabla3,format = "html",caption = "Pacientes con DCL y Demencia según ANSCP"))
Pacientes con DCL y Demencia según ANSCP
(0,6.67] (n=44) (6.67,12] (n=50) (12,26] (n=40) Todos Distribucion Datos faltantes P
mmse 26 (24-28) 26.5 (24.25-28) 27 (24.75-28) 27 (24.25-28) no normal 0 0.269
dad 97.5 (92.4-100) 95 (81.88-100) 95 (92.5-100) 97 (91.5-100) no normal 10 0.151
tmta 80.5 (55.5-110.25) 72 (51.25-94.75) 65.5 (53.25-89.5) 71 (52-94) no normal 1 0.245
tmtb 213 (126.5-326) 185 (134-320.5) 178.5 (119-350) 198 (130-320) no normal 1 0.183
gbrecuerdostotales 39 (29-44) 37 (24.5-44) 44 (33-48) 41 (29-45) no normal 1 0.065
refranes 1 (1-2) 2 (1-3) 2 (1-3) 2 (1-3) no normal 2 0.368
fluenciasemantica 12.12±3.21 14.06±3.75 13.8±4.78 13.55±4.23 normal 4 0.045
fluenciafonologica 7 (4.5-10) 10.5 (8-13) 10 (6-13) 9 (6-12.75) no normal 4 0.332
reloj 6 (3.75-7) 6 (4-7) 6 (3-7) 6 (4-7) no normal 0 0.301
digitosdirectos 5 (4.5-6) 6 (5-6.75) 5 (5-6) 6 (5-6) no normal 4 0.387
digitosreversos 4 (3-4) 4 (3-4) 4 (3-4) 4 (3-4) no normal 4 0.142
waistotal 12 (10.5-15) 13 (11-15) 12 (11-13) 13 (11-14) no normal 4 0.133
denominaciondeboston 45 (36-51.25) 46.5 (38.5-51.75) 45.5 (41-51) 47 (38-52) no normal 3 0.839
critotal 102 (87.75-121.25) 111 (95.75-130.5) 108 (90-122.5) 105 (89.5-126.5) no normal 11 0.446
añosdeeducacion 9.5 (7-12) 12 (7-16) 12 (7-15) 12 (7-15) no normal 0 0.65
tapr 36 (23-43) 42.5 (31-46) 40 (28-45) 40 (29.5-45) no normal 43 0.888 
qplot (x = ansgPacienteCut,y = critotal,data = datos.con.deterioro, geom = "boxplot", facets= diagnosticoCat~.)+xlab("anscp")+geom_point( position=position_jitter(w=0.1), color="red")
## Warning: Removed 11 rows containing non-finite values (stat_boxplot).
## Warning: Removed 11 rows containing missing values (geom_point).

qplot (x = ansgPacienteCut,y = añosdeeducacion,data = datos.con.deterioro, geom = "boxplot", facets= diagnosticoCat~.)+xlab("anscp")+geom_point( position=position_jitter(w=0.1), color="red")

qplot (x = ansgPacienteCut,y = tapr,data = datos.con.deterioro, geom = "boxplot", facets= diagnosticoCat~.)+xlab("anscp")+geom_point( position=position_jitter(w=0.1), color="red")
## Warning: Removed 43 rows containing non-finite values (stat_boxplot).
## Warning: Removed 43 rows containing missing values (geom_point).

Tabla en dementes ansgcp

ansgDementes<-filter (datos.con.deterioro, diagnosticoCat=="Demencia")

ansQuantile<-quantile (ansgDementes$ansgcp, probs = c(0,1/3,2/3,1),na.rm = TRUE)
ansgPacienteCut<-with(ansgDementes,{
    cut(ansgcp, ansQuantile)
})


tabla4<-creaTabla(datos=select(ansgDementes,
                               mmse,
                               dad,
                               tmta,
                               tmtb,
                               dad,
                               gbrecuerdostotales,
                               refranes,
                               fluenciasemantica,
                               fluenciafonologica,
                               reloj,
                               digitosdirectos,
                               digitosreversos,
                               waistotal,
                               denominaciondeboston,
                               critotal,
                               añosdeeducacion,
                               tapr
                               ), ansgPacienteCut)

knit_print(kable(tabla4,format = "html",caption = "Pacientes con demencia según puntaje de ANSG CP"))
Pacientes con demencia según puntaje de ANSG CP
(1,6] (n=8) (6,11] (n=10) (11,26] (n=8) Todos Distribucion Datos faltantes P
mmse 22.38±3.38 24.3±3.3 21.75±3.49 23.17±3.55 normal 0 0.264
dad 81.75 (76.25-86.25) 62.5 (56.25-69.01) 87.5 (75-90.62) 80.5 (69.01-92.12) no normal 3 0.861
tmta 110.5±49.35 100.2±57.48 90.5±18.85 106.31±60.47 normal 0 0.692
tmtb 322 (247.5-350) 242 (178-328.75) 350 (284.75-350) 300 (183-350) no normal 0 0.341
gbrecuerdostotales 26.38±13.28 31±12.79 21.5±14.29 28.56±13.08 normal 1 0.344
refranes 0.5 (0-1) 2 (0.25-2) 0.5 (0-1) 1 (0-2) no normal 0 1
fluenciasemantica 10.12±2.23 13.8±2.7 10.38±4.34 11.59±4.02 normal 1 0.036
fluenciafonologica 5.5 (4.25-6.5) 10.5 (8-11) 7.5 (6.75-9.75) 7.5 (6-10.75) no normal 1 0.976
reloj 0.5 (0-5.25) 5.5 (4-6) 1.5 (0.75-5.5) 5 (0-6) no normal 0 0.861
digitosdirectos 4.62±1.06 6±1.25 5.75±1.49 5.51±1.31 normal 0 0.081
digitosreversos 3 (3-3.5) 4 (3-4.75) 3.5 (3-4) 3 (3-4) no normal 0 0.846
waistotal 11±3.21 13.3±3.2 12±2.83 12.37±3.11 normal 0 0.305
denominaciondeboston 37.25±9.74 45.8±7.38 35.5±10.65 39.59±11.21 normal 1 0.055
critotal 89.75±16.17 118.7±28.49 101.88±24.96 104.35±25.45 normal 4 0.057
añosdeeducacion 7 (6.75-7.5) 15.5 (12-16.75) 8.5 (7-12.75) 10 (7-15) no normal 0 0.852
tapr 30±7.98 43.5±4.93 35.5±13.03 36.78±9.06 normal 8 0.018 
qplot (x = ansgPacienteCut,y = critotal,data = ansgDementes, geom = "boxplot", facets= diagnosticoCat~.)+xlab("anscp")+geom_point( position=position_jitter(w=0.1), color="red")
## Warning: Removed 4 rows containing non-finite values (stat_boxplot).
## Warning: Removed 4 rows containing missing values (geom_point).

qplot (x = ansgPacienteCut,y = añosdeeducacion,data = ansgDementes, geom = "boxplot", facets= diagnosticoCat~.)+xlab("anscp")+geom_point( position=position_jitter(w=0.1), color="red")

qplot (x = ansgPacienteCut,y = tapr,data = ansgDementes, geom = "boxplot", facets= diagnosticoCat~.)+xlab("anscp")+geom_point( position=position_jitter(w=0.1), color="red")
## Warning: Removed 8 rows containing non-finite values (stat_boxplot).
## Warning: Removed 8 rows containing missing values (geom_point).

Tabla en dementes puntajeANSG

ansQuantile<-quantile (ansgDementes$puntajeANSG, probs = c(0,1/3,2/3,1),na.rm = TRUE)
ansgPacienteCut<-with(ansgDementes,{
    cut(puntajeANSG, ansQuantile)
})


tabla5<-creaTabla(datos=select(ansgDementes,
                               mmse,
                               dad,
                               tmta,
                               tmtb,
                               dad,
                               gbrecuerdostotales,
                               refranes,
                               fluenciasemantica,
                               fluenciafonologica,
                               reloj,
                               digitosdirectos,
                               digitosreversos,
                               waistotal,
                               denominaciondeboston,
                               critotal,
                               añosdeeducacion,
                               tapr,
                               ansgcp,
                               ansgpp
                               ), ansgPacienteCut)

knit_print(kable(tabla5,format = "html",caption = "Pacientes con demencia según puntaje de ANSG paciente - familiar"))
Pacientes con demencia según puntaje de ANSG paciente - familiar
(-11,7] (n=9) (7,16] (n=9) (16,35] (n=9) Todos Distribucion Datos faltantes P
mmse 22.78±2.77 22.78±3.07 23±4.42 23.17±3.55 normal 0 0.988
dad 88.56±8.08 72.28±15.42 71.7±12.49 79.15±14.4 normal 3 0.012
tmta 89 (66-99) 91 (58-110) 120 (90-135) 91 (59-123.5) no normal 0 1
tmtb 281.44±89.46 282.11±117.98 280.56±103.21 273.49±104.47 normal 0 0.999
gbrecuerdostotales 29.22±10.59 23.33±10.86 29.89±16 28.56±13.08 normal 1 0.496
refranes 1 (1-2) 1 (0-2) 0 (0-1) 1 (0-2) no normal 0 0.627
fluenciasemantica 14 (10-15) 11 (9-12) 11 (9-12) 11 (9-14.75) no normal 1 0.97
fluenciafonologica 7 (6-11) 8 (5-8) 7 (6-10) 7.5 (6-10.75) no normal 1 0.918
reloj 5 (1-6) 5 (0-5) 2 (0-6) 5 (0-6) no normal 0 0.705
digitosdirectos 5.56±0.88 5.67±1.66 5.22±1.48 5.51±1.31 normal 0 0.779
digitosreversos 4 (3-5) 3 (3-4) 3 (2-3) 3 (3-4) no normal 0 0.779
waistotal 12.67±1.5 12.44±2.83 11.44±4.39 12.37±3.11 normal 0 0.683
denominaciondeboston 46.11±5.95 38.67±9.35 39.22±10.38 39.59±11.21 normal 1 0.155
critotal 98.11±26.4 117.33±27.26 105.11±24.35 104.35±25.45 normal 4 0.303
añosdeeducacion 7 (7-12) 12 (12-15) 9 (7-16) 10 (7-15) no normal 0 0.607
tapr 40 (38-43) 45 (43.5-45.5) 29 (23.75-35.25) 38 (30.5-44.5) no normal 8 0.57
ansgcp 12.33±7.18 8±4.5 6.11±3.44 9.21±6 normal 7 0.055
ansgpp 4 (3-5) 2 (2-4) 3 (2-4) 3 (2-5.25) no normal 7 0.891 
qplot (x = ansgPacienteCut,y = critotal,data = ansgDementes, geom = "boxplot", facets= diagnosticoCat~.)+xlab("puntajeANSG")+geom_point( position=position_jitter(w=0.1), color="red")
## Warning: Removed 4 rows containing non-finite values (stat_boxplot).
## Warning: Removed 4 rows containing missing values (geom_point).

qplot (x = ansgPacienteCut,y = añosdeeducacion,data = ansgDementes, geom = "boxplot", facets= diagnosticoCat~.)+xlab("puntajeANSG")+geom_point( position=position_jitter(w=0.1), color="red")

qplot (x = ansgPacienteCut,y = tapr,data = ansgDementes, geom = "boxplot", facets= diagnosticoCat~.)+xlab("puntajeANSG")+geom_point( position=position_jitter(w=0.1), color="red")
## Warning: Removed 8 rows containing non-finite values (stat_boxplot).
## Warning: Removed 8 rows containing missing values (geom_point).

qplot (x = ansgPacienteCut,y = ansgcp,data = ansgDementes, geom = "boxplot", facets= diagnosticoCat~.)+xlab("puntajeANSG")+geom_point( position=position_jitter(w=0.1), color="red")
## Warning: Removed 7 rows containing non-finite values (stat_boxplot).
## Warning: Removed 7 rows containing missing values (geom_point).

Evaluacion en funcion de la reserva cognitiva, dividiendo por cuartilos el critotal

critotal.cuartilos<-quantile(datos.filtrados$critotal,probs = c(0,3/4,1),na.rm = T)
cri.cuartilos<-with(datos.filtrados,{
    cut (x = critotal,breaks = critotal.cuartilos)
})

variablesinteres<-select(.data = datos.filtrados,
                         puntajeANSG,
                         ansgcp)

knit_print(kable(creaTabla(variablesinteres, cri.cuartilos),
                 format = "html",caption = "ANSG segun el CRI total (mayor o menor al P75"))
ANSG segun el CRI total (mayor o menor al P75
(69,129] (n=147) (129,177] (n=49) Todos Distribucion Datos faltantes P
puntajeANSG 2.81±10.86 0.06±9.95 2.36±10.93 normal 73 0.167
ansgcp 9 (4.5-13) 9 (7-12.5) 9 (5-13) no normal 70 0.679