source("/Users/mauriciogutierrez/Library/Mobile Documents/com~apple~CloudDocs/estadisticas/general_functions_new.R")
## Loading required package: XLConnectJars
## XLConnect 0.2-11 by Mirai Solutions GmbH [aut],
## Martin Studer [cre],
## The Apache Software Foundation [ctb, cph] (Apache POI, Apache Commons
## Codec),
## Stephen Colebourne [ctb, cph] (Joda-Time Java library)
## http://www.mirai-solutions.com ,
## http://miraisolutions.wordpress.com
## Loading required package: reshape2
## Loading required package: stringr
library("openxlsx")
##
## Attaching package: 'openxlsx'
##
## The following objects are masked from 'package:XLConnect':
##
## loadWorkbook, mergeCells, saveWorkbook
todos <- read.xlsx("/Users/mauriciogutierrez/Library/Mobile Documents/com~apple~CloudDocs/estadisticas/mercepin/dm2-2.xlsx", sheet = 1, startRow = 1, colNames = TRUE)
labelsexo=c("F","M")
labeldicotomico=c("Si","No")
labeltipodm=c("DM1","DM2","Farmacologica","Post")
# Demografico ---------------------------------------------------
freq(todos,todos$sexo,using_na=T,label=labelsexo)
##
## absolute relative cumulative ici ics
## F 23 44.23 44.23 30.47 58.67
## M 29 55.77 100 41.33 69.53
## Total 52 100.00
means(todos,todos$edad)
##
## edad
## n 52
## Mean 58.75
## Median 58
## Sd 14.6
## Min 24
## Max 88
## Range 64
## Q1 50
## Q3 69.25
## Iqr 19.25
## Normality 0.851
## ICI 58.62
## SCI 58.88
## Summary Mean[ICI-ICS] --> 58.75(58.62-58.88)
# Gestion Hospitalaria ---------------------------------------------------
freq(todos,todos$sala,using_na=T)
##
## absolute relative cumulative ici ics
## M 21 40.38 40.38 27.01 54.9
## Q 31 59.62 100 45.1 72.99
## Total 52 100.00
means(todos,todos$demorainterconsulta)
##
## demorainterconsulta
## n 52
## Mean 5.81
## Median 4
## Sd 6.38
## Min 0
## Max 37
## Range 37
## Q1 2
## Q3 7
## Iqr 5
## Normality 0
## ICI 5.75
## SCI 5.86
## Summary Median[Q1-Q3] -->4(2-7)
means(todos,todos$demoravaloracion)
##
## demoravaloracion
## n 52
## Mean 1.79
## Median 1
## Sd 1.91
## Min 0
## Max 9
## Range 9
## Q1 0.75
## Q3 3
## Iqr 2.25
## Normality 0
## ICI 1.77
## SCI 1.81
## Summary Median[Q1-Q3] -->1(0.75-3)
means(todos,todos$diasinternacion)
##
## diasinternacion
## n 52
## Mean 26.5
## Median 21
## Sd 22.57
## Min 4
## Max 126
## Range 122
## Q1 13
## Q3 29.5
## Iqr 16.5
## Normality 0
## ICI 26.3
## SCI 26.7
## Summary Median[Q1-Q3] -->21(13-29.5)
# Caracterizacion Diabetes ---------------------------------------------------
freq(todos,todos$dmconocido,using_na=T,label=labeldicotomico)
##
## absolute relative cumulative ici ics
## Si 46 88.46 88.46 76.56 95.65
## No 6 11.54 100 4.35 23.44
## Total 52 100.00
freq(todos,todos$tipodm,using_na=T,label=labeltipodm)
##
## absolute relative cumulative ici ics
## DM1 3 5.77 5.77 1.21 15.95
## DM2 46 88.46 94.23 76.56 95.65
## Farmacologica 2 3.85 98.08 0.47 13.21
## Post 1 1.92 100 0.05 10.26
## Total 52 100.00
diabeticosconocidos=todos[which(todos$dmconocido==1),]
diabeticosconocidos$tiempoevolucion=as.numeric(diabeticosconocidos$tiempoevolucion)
## Warning: NAs introduced by coercion
means(diabeticosconocidos,diabeticosconocidos$tiempoevolucion)
##
## tiempoevolucion
## n 45
## Mean 11.84
## Median 8
## Sd 10.79
## Min 1
## Max 50
## Range 49
## Q1 4
## Q3 20
## Iqr 16
## Normality 0
## ICI 11.74
## SCI 11.95
## Summary Median[Q1-Q3] -->8(4-20)
# Tratamiento previo ---------------------------------------------------
freq(todos,todos$adoprevio,c("Si","No"))
##
## absolute relative cumulative ici ics
## Si 26 50 50 35.81 64.19
## No 26 50 100 35.81 64.19
## Missing 0 0 100.00 0 6.85
## Total 52 100.00
freq(diabeticosconocidos,diabeticosconocidos$cumpledieta,using_na=T,labels=c("Si","No","NE"))
##
## absolute relative cumulative ici ics
## Si 4 8.7 8.7 2.42 20.79
## No 13 28.26 36.96 15.99 43.46
## NE 29 63.04 100 47.55 76.79
## Total 46 100.00
freq(diabeticosconocidos,diabeticosconocidos$cumpleejercicio,using_na=T,c("Si","No","NE"))
##
## absolute relative cumulative ici ics
## Si 1 2.17 2.17 0.06 11.53
## No 11 23.91 26.09 12.59 38.77
## NE 34 73.91 100 58.87 85.73
## Total 46 100.00
freq(diabeticosconocidos,diabeticosconocidos$metformina,labeldicotomico,using_na=T)
##
## absolute relative cumulative ici ics
## Si 24 52.17 52.17 36.95 67.11
## No 22 47.83 100 32.89 63.05
## Total 46 100.00
freq(diabeticosconocidos,diabeticosconocidos$sulfonilureas,labeldicotomico,using_na=T)
##
## absolute relative cumulative ici ics
## Si 10 21.74 21.74 10.95 36.36
## No 36 78.26 100 63.64 89.05
## Total 46 100.00
freq(diabeticosconocidos,diabeticosconocidos$glitazonas,using_na=T,c("No"))
##
## absolute relative cumulative ici ics
## No 46 100 100 92.29 100
## Total 46 100.00
freq(diabeticosconocidos,diabeticosconocidos$inhibidoresdpp4,labeldicotomico,using_na=T)
##
## absolute relative cumulative ici ics
## Si 2 4.35 4.35 0.53 14.84
## No 44 95.65 100 85.16 99.47
## Total 46 100.00
freq(diabeticosconocidos,diabeticosconocidos$insulina,labeldicotomico,using_na=T)
##
## absolute relative cumulative ici ics
## Si 24 52.17 52.17 36.95 67.11
## No 22 47.83 100 32.89 63.05
## Total 46 100.00
insulinizados=diabeticosconocidos[which(diabeticosconocidos$insulina==1),]
freq(insulinizados,insulinizados$insulinabasal,using_na=T,c("Si","N/E"))
##
## absolute relative cumulative ici ics
## Si 23 95.83 95.83 78.88 99.89
## N/E 1 4.17 100 0.11 21.12
## Total 24 100.00
freq(insulinizados,insulinizados$tipoinsulinabasal,using_na=T,c("NPH","Analogos","N/E"))
##
## absolute relative cumulative ici ics
## NPH 21 87.5 87.5 67.64 97.34
## Analogos 1 4.17 91.67 0.11 21.12
## N/E 2 8.33 100 1.03 27
## Total 24 100.00
freq(insulinizados,insulinizados$numerodosisinsulinabasal,using_na=T)
##
## absolute relative cumulative ici ics
## 1 3 12.5 12.5 2.66 32.36
## 2 6 25 37.5 9.77 46.71
## 3 13 54.17 91.67 32.82 74.45
## 4 1 4.17 95.83 0.11 21.12
## NE 1 4.17 100 0.11 21.12
## Total 24 100.00
means(insulinizados,as.numeric(insulinizados$dosistotalinsulinabasal))
## Warning in descriptive_means(x, varname = namex): NAs introduced by
## coercion
##
## dosistotalinsulinabasal)
## n 22
## Mean 58.14
## Median 54
## Sd 34.66
## Min 5
## Max 120
## Range 115
## Q1 28
## Q3 86
## Iqr 58
## Normality 0.196
## ICI 57.67
## SCI 58.61
## Summary Mean[ICI-ICS] --> 58.14(57.67-58.61)
freq(insulinizados,insulinizados$insulinaprandial,c("Si","No","NE"),using_na=T)
##
## absolute relative cumulative ici ics
## Si 10 41.67 41.67 22.11 63.36
## No 12 50 91.67 29.12 70.88
## NE 2 8.33 100 1.03 27
## Total 24 100.00
coninsulinaprandial=diabeticosconocidos[which(diabeticosconocidos$insulinaprandial==1),]
freq(coninsulinaprandial,coninsulinaprandial$tipoinsulinaprandial,c("Cristalina","Analogos"),using_na=T)
##
## absolute relative cumulative ici ics
## Cristalina 7 70 70 34.75 93.33
## Analogos 3 30 100 6.67 65.25
## Total 10 100.00
freq(coninsulinaprandial,coninsulinaprandial$insulinaprandialpor,using_na=T,c("x valor","x Valor/Consumo"))
##
## absolute relative cumulative ici ics
## x valor 6 60 60 26.24 87.84
## x Valor/Consumo 4 40 100 12.16 73.76
## Total 10 100.00
freq(coninsulinaprandial,coninsulinaprandial$numerodosisinsulinaprandial)
##
## absolute relative cumulative ici ics
## 0 7 70 70 34.75 93.33
## 3 1 10 80 0.25 44.5
## 4 2 20 100 2.52 55.61
## Missing 0 0 100.00 0 30.85
## Total 10 100.00
diabeticosconocidos$tratamiento=""
diabeticosconocidos$tratamiento=paste(diabeticosconocidos$tratamiento,ifelse(diabeticosconocidos$metformina==1,"MET ",""),sep="")
diabeticosconocidos$tratamiento=paste(diabeticosconocidos$tratamiento,ifelse(diabeticosconocidos$sulfonilureas==1,"SUL ",""),sep="")
diabeticosconocidos$tratamiento=paste(diabeticosconocidos$tratamiento,ifelse(diabeticosconocidos$inhibidoresdpp4==1,"DPP ",""),sep="")
diabeticosconocidos$tratamiento=paste(diabeticosconocidos$tratamiento,ifelse(diabeticosconocidos$insulina==1,"INS ",""),sep="")
diabeticosconocidos$tratamiento=ifelse(diabeticosconocidos$tratamiento=="","No Trat. farmacologico",diabeticosconocidos$tratamiento)
freq(diabeticosconocidos,diabeticosconocidos$tratamiento,using_na=T)
##
## absolute relative cumulative ici ics
## DPP INS 1 2.17 2.17 0.06 11.53
## INS 17 36.96 39.13 23.21 52.45
## MET 8 17.39 56.52 7.82 31.42
## MET DPP 1 2.17 58.7 0.06 11.53
## MET INS 6 13.04 71.74 4.94 26.26
## MET SUL 9 19.57 91.3 9.36 33.91
## No Trat. farmacologico 3 6.52 97.83 1.37 17.9
## SUL 1 2.17 100 0.06 11.53
## Total 46 100.00
# Control metabolico previo ---------------------------------------------------
freq(todos,todos$tienehba1c36mesesprevios,labeldicotomico,using_na=T)
##
## absolute relative cumulative ici ics
## Si 8 15.38 15.38 6.88 28.08
## No 44 84.62 100 71.92 93.12
## Total 52 100.00
means(todos,todos$valorhba1c36mesesprevios)
##
## valorhba1c36mesesprevios
## n 9
## Mean 10.19
## Median 8.4
## Sd 4.03
## Min 6.3
## Max 18.3
## Range 12
## Q1 7.4
## Q3 11.8
## Iqr 4.4
## Normality 0.134
## ICI 10.1
## SCI 10.28
## Summary Mean[ICI-ICS] --> 10.19(10.1-10.28)
means(todos,todos$glucemia6mesesprevios)
##
## glucemia6mesesprevios
## n 14
## Mean 247.93
## Median 178.5
## Sd 187.5
## Min 62
## Max 725
## Range 663
## Q1 130.75
## Q3 272
## Iqr 141.25
## Normality 0.017
## ICI 244.73
## SCI 251.13
## Summary Median[Q1-Q3] -->178.5(130.75-272)
# Complicaciones Cronicas ---------------------------------------------------
freq(todos,todos$repercusionmicro,using_na=T,labeldicotomico)
##
## absolute relative cumulative ici ics
## Si 28 53.85 53.85 39.47 67.77
## No 24 46.15 100 32.23 60.53
## Total 52 100.00
freq(todos,todos$retinopatia,labeldicotomico,using_na=T)
##
## absolute relative cumulative ici ics
## Si 12 23.08 23.08 12.53 36.84
## No 40 76.92 100 63.16 87.47
## Total 52 100.00
freq(todos,todos$nefropatia,labeldicotomico,using_na=T)
##
## absolute relative cumulative ici ics
## Si 21 40.38 40.38 27.01 54.9
## No 31 59.62 100 45.1 72.99
## Total 52 100.00
freq(todos,todos$insuficienciarenal,using_na=T,labeldicotomico)
##
## absolute relative cumulative ici ics
## Si 21 40.38 40.38 27.01 54.9
## No 31 59.62 100 45.1 72.99
## Total 52 100.00
freq(todos,todos$neuropatia,using_na=T,labeldicotomico)
##
## absolute relative cumulative ici ics
## Si 23 45.1 45.1 31.13 59.66
## No 28 54.9 100 40.34 68.87
## Total 51 100.00
freq(todos,todos$neuropatiaautonomica,using_na=T,c("Si","No","NE"))
##
## absolute relative cumulative ici ics
## Si 1 1.92 1.92 0.05 10.26
## No 50 96.15 98.08 86.79 99.53
## NE 1 1.92 100 0.05 10.26
## Total 52 100.00
freq(todos,todos$cardiopatiaisquemica,using_na=T,labeldicotomico)
##
## absolute relative cumulative ici ics
## Si 14 26.92 26.92 15.57 41.02
## No 38 73.08 100 58.98 84.43
## Total 52 100.00
freq(todos,todos$acvoait,using_na=T,labeldicotomico)
##
## absolute relative cumulative ici ics
## Si 6 11.54 11.54 4.35 23.44
## No 46 88.46 100 76.56 95.65
## Total 52 100.00
freq(todos,todos$aocmmii,using_na=T,labeldicotomico)
##
## absolute relative cumulative ici ics
## Si 6 11.54 11.54 4.35 23.44
## No 46 88.46 100 76.56 95.65
## Total 52 100.00
freq(todos,todos$lesionespie,using_na=T,labeldicotomico)
##
## absolute relative cumulative ici ics
## Si 11 21.15 21.15 11.06 34.7
## No 41 78.85 100 65.3 88.94
## Total 52 100.00
freq(todos,todos$amputacion,using_na=T,labeldicotomico)
##
## absolute relative cumulative ici ics
## Si 4 7.69 7.69 2.14 18.54
## No 48 92.31 100 81.46 97.86
## Total 52 100.00
freq(todos,todos$obesidad,using_na=T,c("Si","No","NE"))
##
## absolute relative cumulative ici ics
## Si 14 26.92 26.92 15.57 41.02
## No 11 21.15 48.08 11.06 34.7
## NE 27 51.92 100 37.63 65.99
## Total 52 100.00
obesos=todos[which(todos$obesidad==1),]
freq(obesos,obesos$gradoobesidad,using_na=T)
##
## absolute relative cumulative ici ics
## 2 1 7.14 7.14 0.18 33.87
## 3 5 35.71 42.86 12.76 64.86
## 4 8 57.14 100 28.86 82.34
## Total 14 100.00
freq(todos,todos$hta,labeldicotomico,using_na=T)
##
## absolute relative cumulative ici ics
## Si 45 86.54 86.54 74.21 94.41
## No 7 13.46 100 5.59 25.79
## Total 52 100.00
freq(todos,todos$dislipidemia,labeldicotomico,using_na=T)
##
## absolute relative cumulative ici ics
## Si 22 42.31 42.31 28.73 56.8
## No 30 57.69 100 43.2 71.27
## Total 52 100.00
freq(todos,todos$tabaquista,using_na=T,c("Si","No","Ex"))
##
## absolute relative cumulative ici ics
## Si 9 17.31 17.31 8.23 30.33
## No 25 48.08 65.38 34.01 62.37
## Ex 18 34.62 100 21.97 49.09
## Total 52 100.00
freq(todos,todos$etlista,c("Si","No","Ex"),using_na=T)
##
## absolute relative cumulative ici ics
## Si 5 9.62 9.62 3.2 21.03
## No 46 88.46 98.08 76.56 95.65
## Ex 1 1.92 100 0.05 10.26
## Total 52 100.00
# Tratamiento en la internacion ---------------------------------------------------
freq(todos,todos$adoduranteinternacion,using_na=T,c("Si","No"))
##
## absolute relative cumulative ici ics
## Si 19 36.54 36.54 23.62 51.04
## No 33 63.46 100 48.96 76.38
## Total 52 100.00
adoduranteinternacion=todos[which(todos$adoduranteinternacion==1),]
freq(adoduranteinternacion,adoduranteinternacion$metformina_int,labeldicotomico,using_na=T)
##
## absolute relative cumulative ici ics
## Si 18 94.74 94.74 73.97 99.87
## No 1 5.26 100 0.13 26.03
## Total 19 100.00
freq(adoduranteinternacion,adoduranteinternacion$sulfonilureas_int,labeldicotomico,using_na=T)
##
## absolute relative cumulative ici ics
## Si 3 15.79 15.79 3.38 39.58
## No 16 84.21 100 60.42 96.62
## Total 19 100.00
freq(adoduranteinternacion,adoduranteinternacion$glitazonas_int,c("No"),using_na=T)
##
## absolute relative cumulative ici ics
## No 19 100 100 82.35 100
## Total 19 100.00
freq(adoduranteinternacion,adoduranteinternacion$inhibidoresdpp4_int,labeldicotomico,using_na=T)
##
## absolute relative cumulative ici ics
## Si 1 5.26 5.26 0.13 26.03
## No 18 94.74 100 73.97 99.87
## Total 19 100.00
insulinainternacion=todos[which(todos$insulinabasal_int==1 | todos$insulinaprandial_int==1),]
freq(insulinainternacion,insulinainternacion$insulinabasal_int,c("Si","No"),using_na=T)
##
## absolute relative cumulative ici ics
## Si 38 73.08 73.08 58.98 84.43
## No 14 26.92 100 15.57 41.02
## Total 52 100.00
freq(insulinainternacion,insulinainternacion$insulinaprandial_int,c("Si"),using_na=T)
##
## absolute relative cumulative ici ics
## Si 52 100 100 93.15 100
## Total 52 100.00
freq(insulinainternacion,insulinainternacion$tipoinsulinaprandial_int,c("Cristalina","Analogos"),using_na=T)
##
## absolute relative cumulative ici ics
## Cristalina 49 94.23 94.23 84.05 98.79
## Analogos 3 5.77 100 1.21 15.95
## Total 52 100.00
freq(insulinainternacion,insulinainternacion$insulinaprandiapor_int,c("x valor","x valor/consumo"),using_na=T)
##
## absolute relative cumulative ici ics
## x valor 41 78.85 78.85 65.3 88.94
## x valor/consumo 11 21.15 100 11.06 34.7
## Total 52 100.00
freq(insulinainternacion,insulinainternacion$numerodosisinsulinaprandial_int,using_na=T)
##
## absolute relative cumulative ici ics
## 0 41 78.85 78.85 65.3 88.94
## 1 3 5.77 84.62 1.21 15.95
## 3 5 9.62 94.23 3.2 21.03
## 4 3 5.77 100 1.21 15.95
## Total 52 100.00
insulinabasalinternacion=todos[which(todos$insulinabasal_int==1),]
freq(insulinabasalinternacion,insulinabasalinternacion$tipoinsulinabasal_int,using_na=T,c("NPH","Analogos"))
##
## absolute relative cumulative ici ics
## NPH 37 97.37 97.37 86.19 99.93
## Analogos 1 2.63 100 0.07 13.81
## Total 38 100.00
freq(insulinabasalinternacion,insulinabasalinternacion$numeroinsulinabasal_int,using_na=T)
##
## absolute relative cumulative ici ics
## 1 8 21.05 21.05 9.55 37.32
## 2 11 28.95 50 15.42 45.9
## 3 19 50 100 33.38 66.62
## Total 38 100.00
means(insulinabasalinternacion,insulinabasalinternacion$dosisinsulinabasal_int)
##
## dosisinsulinabasal_int
## n 38
## Mean 37.61
## Median 37
## Sd 26.52
## Min 5
## Max 120
## Range 115
## Q1 18.5
## Q3 48
## Iqr 29.5
## Normality 0.004
## ICI 37.33
## SCI 37.88
## Summary Median[Q1-Q3] -->37(18.5-48)
means(todos,as.numeric(todos$glucemiaalingreso))
##
## glucemiaalingreso)
## n 38
## Mean 281.82
## Median 196
## Sd 230.45
## Min 46
## Max 1181
## Range 1135
## Q1 134
## Q3 331.25
## Iqr 197.25
## Normality 0
## ICI 279.46
## SCI 284.18
## Summary Median[Q1-Q3] -->196(134-331.25)
# Control metabolico en la internacion ---------------------------------------------------
means(todos,todos$medianaglucemiainternacion)
##
## medianaglucemiainternacion
## n 42
## Mean 217.13
## Median 191
## Sd 110.91
## Min 69
## Max 519
## Range 450
## Q1 133.25
## Q3 288.12
## Iqr 154.88
## Normality 0.004
## ICI 216.05
## SCI 218.21
## Summary Median[Q1-Q3] -->191(133.25-288.12)
means(todos,todos$medianahgtinternacion)
##
## medianahgtinternacion
## n 52
## Mean 178.6
## Median 172.5
## Sd 52.09
## Min 95
## Max 300
## Range 205
## Q1 145.62
## Q3 200.12
## Iqr 54.5
## Normality 0.011
## ICI 178.14
## SCI 179.05
## Summary Median[Q1-Q3] -->172.5(145.62-200.12)
means(todos,todos$medianahgtinternacion)
##
## medianahgtinternacion
## n 52
## Mean 178.6
## Median 172.5
## Sd 52.09
## Min 95
## Max 300
## Range 205
## Q1 145.62
## Q3 200.12
## Iqr 54.5
## Normality 0.011
## ICI 178.14
## SCI 179.05
## Summary Median[Q1-Q3] -->172.5(145.62-200.12)
means(todos,todos$rihgtinternacion)
##
## rihgtinternacion
## n 52
## Mean 81.28
## Median 78.5
## Sd 38.75
## Min 13
## Max 184
## Range 171
## Q1 51.19
## Q3 101.56
## Iqr 50.38
## Normality 0.311
## ICI 80.95
## SCI 81.62
## Summary Mean[ICI-ICS] --> 81.28(80.95-81.62)
means(todos,as.numeric(todos$porcentajecon3omashgtdia))
##
## porcentajecon3omashgtdia)
## n 52
## Mean 70.56
## Median 76.6
## Sd 24.26
## Min 0
## Max 100
## Range 100
## Q1 58.3
## Q3 88.97
## Iqr 30.67
## Normality 0
## ICI 70.35
## SCI 70.77
## Summary Median[Q1-Q3] -->76.6(58.3-88.97)
means(todos,todos$porcentajehgtenobjetivo)
##
## porcentajehgtenobjetivo
## n 52
## Mean 23.71
## Median 16.9
## Sd 20.31
## Min 0
## Max 90
## Range 90
## Q1 10.23
## Q3 34.95
## Iqr 24.73
## Normality 0
## ICI 23.53
## SCI 23.89
## Summary Median[Q1-Q3] -->16.9(10.23-34.95)
means(todos,todos$hba1c3mesespreviosointernacion)
##
## hba1c3mesespreviosointernacion
## n 11
## Mean 9.3
## Median 8
## Sd 3.43
## Min 6.3
## Max 18.3
## Range 12
## Q1 7.4
## Q3 10.45
## Iqr 3.05
## Normality 0.003
## ICI 9.23
## SCI 9.37
## Summary Median[Q1-Q3] -->8(7.4-10.45)
means(todos,todos$porcentajedehipoglucemiasdurantelainternacion)
##
## porcentajedehipoglucemiasdurantelainternacion
## n 52
## Mean 3.38
## Median 0.95
## Sd 5.6
## Min 0
## Max 23.6
## Range 23.6
## Q1 0
## Q3 5
## Iqr 5
## Normality 0
## ICI 3.34
## SCI 3.43
## Summary Median[Q1-Q3] -->0.95(0-5)
means(todos,todos$porcentajedehiperglucemiasduranteinternacion)
##
## porcentajedehiperglucemiasduranteinternacion
## n 52
## Mean 42.51
## Median 44.05
## Sd 27.46
## Min 0
## Max 98.5
## Range 98.5
## Q1 21.17
## Q3 60.12
## Iqr 38.95
## Normality 0.143
## ICI 42.27
## SCI 42.75
## Summary Mean[ICI-ICS] --> 42.51(42.27-42.75)
# Ingreso / Complicaciones / Derivacion ---------------------------------------------------
freq(todos,todos$resultadosinternacion)
##
## absolute relative cumulative ici ics
## 1 51 98.08 98.08 89.74 99.95
## 2 1 1.92 100 0.05 10.26
## Missing 0 0 100.00 0 6.85
## Total 52 100.00
freq(todos,todos$derivacion,c("CTI","No"))
##
## absolute relative cumulative ici ics
## CTI 1 1.92 1.92 0.05 10.26
## No 27 51.92 53.85 37.63 65.99
## Missing 24 46.15 100.00 32.23 60.53
## Total 28 100.00
freq(todos,todos$motivoingreso,using_na=T)
##
## absolute relative cumulative ici ics
## 1 6 11.54 11.54 4.35 23.44
## 2 6 11.54 23.08 4.35 23.44
## 3 1 1.92 25 0.05 10.26
## 4 4 7.69 32.69 2.14 18.54
## 5 3 5.77 38.46 1.21 15.95
## 6 9 17.31 55.77 8.23 30.33
## 7 2 3.85 59.62 0.47 13.21
## 8 9 17.31 76.92 8.23 30.33
## 9 1 1.92 78.85 0.05 10.26
## 11 4 7.69 86.54 2.14 18.54
## 12 3 5.77 92.31 1.21 15.95
## 13 2 3.85 96.15 0.47 13.21
## 14 2 3.85 100 0.47 13.21
## Total 52 100.00
freq(todos,todos$complicacionesinternacion)
##
## absolute relative cumulative ici ics
## -1 29 55.77 55.77 41.33 69.53
## 1, 6, 7 1 1.92 57.69 0.05 10.26
## 11 1 1.92 59.62 0.05 10.26
## 17 1 1.92 61.54 0.05 10.26
## 18 1 1.92 63.46 0.05 10.26
## 3 1 1.92 65.38 0.05 10.26
## 3, 10 1 1.92 67.31 0.05 10.26
## 3, 6 1 1.92 69.23 0.05 10.26
## 3, 9 1 1.92 71.15 0.05 10.26
## 5, 6, 8, 12 1 1.92 73.08 0.05 10.26
## 6 5 9.62 82.69 3.2 21.03
## 6, 7, 9 1 1.92 84.62 0.05 10.26
## 7 2 3.85 88.46 0.47 13.21
## 7, 15 1 1.92 90.38 0.05 10.26
## 7, 16 1 1.92 92.31 0.05 10.26
## 7, 8 1 1.92 94.23 0.05 10.26
## 7, 8, 11 1 1.92 96.15 0.05 10.26
## 8 2 3.85 100 0.47 13.21
## Missing 0 0 100.00 0 6.85
## Total 52 100.00
# Renombre la variable complicacion por complicacioninternaciondicotomica para que quede mas claro
# que son las complicaciones en la internacion en forma de tipo Si / No
todos$complicacioninternaciondicotomica=ifelse(todos$complicacionesinternacion==-1,0,1)
freq(todos,todos$complicacioninternaciondicotomica,c("No","Si"),using_na=T)
##
## absolute relative cumulative ici ics
## No 29 55.77 55.77 41.33 69.53
## Si 23 44.23 100 30.47 58.67
## Total 52 100.00
# Vinculacion de complicaciones con confundentes --------------------------------------
means(todos,todos$edad,todos$complicacioninternaciondicotomica,c("No","Si"))
##
## complicacioninternaciondicotomica = No
## n 29
## Mean 61.79
## Median 61
## Sd 12.57
## Min 40
## Max 88
## Range 48
## Q1 52
## Q3 72
## Iqr 20
## Normal 0.799
## IIC 61.65
## ICS 61.94
## Summary2 61.79 (61.65-61.94)
## Summary Mean[ICI-ICS]
## Groups Homocedastics
## Normality Yes
## Differences No
## p-value 0.092
## Method t-Student(Pooled)
## complicacioninternaciondicotomica = Si
## n 23
## Mean 54.91
## Median 56
## Sd 16.3
## Min 24
## Max 88
## Range 64
## Q1 43
## Q3 67
## Iqr 24
## Normal 0.924
## IIC 54.7
## ICS 55.13
## Summary2 54.91 (54.7-55.13)
## Summary
## Groups
## Normality
## Differences
## p-value
## Method
tables(todos,todos$sexo,todos$complicacioninternaciondicotomica,labelsexo,c("No","Si"))
##
## complicacioninternaciondicotomica
## sexo No Si Sum
## F 13 10 23
## M 16 13 29
## Sum 29 23 52
##
## by Row (%)
## No Si
## F 56.52 43.47
## M 55.17 44.82
## 55.76 44.23
##
## by Col (%)
## No Si
## F 44.82 43.47 44.23
## M 55.17 56.52 55.76
##
## Chi2 Pearson p = 0.922
tables(todos,todos$sala,todos$complicacioninternaciondicotomica,c("M","Q"),c("No","Si"))
##
## complicacioninternaciondicotomica
## sala No Si Sum
## M 10 11 21
## Q 19 12 31
## Sum 29 23 52
##
## by Row (%)
## No Si
## M 47.61 52.38
## Q 61.29 38.70
## 55.76 44.23
##
## by Col (%)
## No Si
## M 34.48 47.82 40.38
## Q 65.51 52.17 59.61
##
## Chi2 Pearson p = 0.33
# Vinculacion de complicaciones tratamiento --------------------------------------
tables(todos,todos$insulina,todos$complicacioninternaciondicotomica,c("Si","No"),c("No","Si"))
##
## complicacioninternaciondicotomica
## insulina No Si Sum
## Si 11 13 24
## No 18 10 28
## Sum 29 23 52
##
## by Row (%)
## No Si
## Si 45.83 54.16
## No 64.28 35.71
## 55.76 44.23
##
## by Col (%)
## No Si
## Si 37.93 56.52 46.15
## No 62.06 43.47 53.84
##
## Chi2 Pearson p = 0.182
tables(todos,todos$adoduranteinternacion,todos$complicacioninternaciondicotomica,c("Si","No"),c("No","Si"))
##
## complicacioninternaciondicotomica
## adoduranteinternacion No Si Sum
## Si 13 6 19
## No 16 17 33
## Sum 29 23 52
##
## by Row (%)
## No Si
## Si 68.42 31.57
## No 48.48 51.51
## 55.76 44.23
##
## by Col (%)
## No Si
## Si 44.82 26.08 36.53
## No 55.17 73.91 63.46
##
## Chi2 Pearson p = 0.163
# Vinculacion de complicaciones con control metabolico --------------------------------------
means(todos,todos$hba1c3mesespreviosointernacion,todos$complicacioninternaciondicotomica,c("No","Si"))
##
## complicacioninternaciondicotomica = No
## n 3
## Mean 7.07
## Median 6.8
## Sd 0.93
## Min 6.3
## Max 8.1
## Range 1.8
## Q1 6.55
## Q3 7.45
## Iqr 0.9
## Normal 0.52
## IIC 7.03
## ICS 7.1
## Summary2 6.8 (6.55-7.45)
## Summary Median[Q1-Q3]
## Groups Homocedastics
## Normality No
## Differences No
## p-value 0.133
## Method Wilcoxon
## complicacioninternaciondicotomica = Si
## n 8
## Mean 10.14
## Median 8.8
## Sd 3.69
## Min 7.3
## Max 18.3
## Range 11
## Q1 7.65
## Q3 11.33
## Iqr 3.68
## Normal 0.016
## IIC 10.05
## ICS 10.22
## Summary2 8.8 (7.65-11.33)
## Summary
## Groups
## Normality
## Differences
## p-value
## Method
means(todos,todos$porcentajehgtenobjetivo,todos$complicacioninternaciondicotomica,c("No","Si"))
##
## complicacioninternaciondicotomica = No
## n 29
## Mean 24.64
## Median 16.4
## Sd 23.24
## Min 0
## Max 90
## Range 90
## Q1 9.7
## Q3 36.3
## Iqr 26.6
## Normal 0.002
## IIC 24.36
## ICS 24.91
## Summary2 16.4 (9.7-36.3)
## Summary Median[Q1-Q3]
## Groups Homocedastics
## Normality No
## Differences No
## p-value 0.775
## Method Kruskal-Wallis
## complicacioninternaciondicotomica = Si
## n 23
## Mean 22.54
## Median 18.5
## Sd 16.31
## Min 2.86
## Max 67.3
## Range 64.44
## Q1 14.1
## Q3 28.9
## Iqr 14.8
## Normal 0.02
## IIC 22.32
## ICS 22.75
## Summary2 18.5 (14.1-28.9)
## Summary
## Groups
## Normality
## Differences
## p-value
## Method
means(todos,todos$porcentajedehipoglucemiasdurantelainternacion,todos$complicacioninternaciondicotomica,c("No","Si"))
##
## complicacioninternaciondicotomica = No
## n 29
## Mean 3.42
## Median 0
## Sd 6.39
## Min 0
## Max 23.6
## Range 23.6
## Q1 0
## Q3 5.3
## Iqr 5.3
## Normal 0
## IIC 3.35
## ICS 3.5
## Summary2 0 (0-5.3)
## Summary Median[Q1-Q3]
## Groups Homocedastics
## Normality No
## Differences No
## p-value 0.211
## Method Kruskal-Wallis
## complicacioninternaciondicotomica = Si
## n 23
## Mean 3.34
## Median 1.4
## Sd 4.57
## Min 0
## Max 16.7
## Range 16.7
## Q1 0
## Q3 4.25
## Iqr 4.25
## Normal 0
## IIC 3.28
## ICS 3.4
## Summary2 1.4 (0-4.25)
## Summary
## Groups
## Normality
## Differences
## p-value
## Method
means(todos,todos$porcentajedehiperglucemiasduranteinternacion,todos$complicacioninternaciondicotomica,c("No","Si"))
##
## complicacioninternaciondicotomica = No
## n 29
## Mean 40.7
## Median 38.2
## Sd 31.33
## Min 0
## Max 98.5
## Range 98.5
## Q1 11.5
## Q3 59.6
## Iqr 48.1
## Normal 0.072
## IIC 40.33
## ICS 41.07
## Summary2 40.7 (40.33-41.07)
## Summary Mean[ICI-ICS]
## Groups Homocedastics
## Normality Yes
## Differences No
## p-value 0.598
## Method t-Student(Pooled)
## complicacioninternaciondicotomica = Si
## n 23
## Mean 44.8
## Median 45
## Sd 22.11
## Min 8.2
## Max 85.7
## Range 77.5
## Q1 28.8
## Q3 61.75
## Iqr 32.95
## Normal 0.608
## IIC 44.51
## ICS 45.09
## Summary2 44.8 (44.51-45.09)
## Summary
## Groups
## Normality
## Differences
## p-value
## Method
means(todos,todos$rihgtinternacion,todos$complicacioninternaciondicotomica,c("No","Si"))
##
## complicacioninternaciondicotomica = No
## n 29
## Mean 67.77
## Median 66.75
## Sd 32.79
## Min 13
## Max 139
## Range 126
## Q1 39.5
## Q3 81
## Iqr 41.5
## Normal 0.635
## IIC 67.38
## ICS 68.15
## Summary2 67.77 (67.38-68.15)
## Summary Mean[ICI-ICS]
## Groups Homocedastics
## Normality Yes
## Differences Yes
## p-value 0.004
## Method t-Student(Pooled)
## complicacioninternaciondicotomica = Si
## n 23
## Mean 98.33
## Median 91
## Sd 39.59
## Min 30
## Max 184
## Range 154
## Q1 74.5
## Q3 121
## Iqr 46.5
## Normal 0.748
## IIC 97.8
## ICS 98.85
## Summary2 98.33 (97.8-98.85)
## Summary
## Groups
## Normality
## Differences
## p-value
## Method
means(todos,todos$medianahgtinternacion,todos$complicacioninternaciondicotomica,c("No","Si"))
##
## complicacioninternaciondicotomica = No
## n 29
## Mean 179.57
## Median 173
## Sd 61.08
## Min 95
## Max 300
## Range 205
## Q1 130
## Q3 211
## Iqr 81
## Normal 0.042
## IIC 178.85
## ICS 180.29
## Summary2 173 (130-211)
## Summary Median[Q1-Q3]
## Groups Heteroscedastic
## Normality No
## Differences No
## p-value 0.912
## Method Kruskal-Wallis
## complicacioninternaciondicotomica = Si
## n 23
## Mean 177.37
## Median 172
## Sd 39.23
## Min 122.5
## Max 263
## Range 140.5
## Q1 147.75
## Q3 193.5
## Iqr 45.75
## Normal 0.027
## IIC 176.85
## ICS 177.89
## Summary2 172 (147.75-193.5)
## Summary
## Groups
## Normality
## Differences
## p-value
## Method
# Vinculacion de complicaciones con gestion hospitalaria --------------------------------------
means(todos,todos$diasinternacion,todos$complicacioninternaciondicotomica,c("No","Si"))
##
## complicacioninternaciondicotomica = No
## n 29
## Mean 16.97
## Median 14
## Sd 12.48
## Min 4
## Max 67
## Range 63
## Q1 9
## Q3 21
## Iqr 12
## Normal 0
## IIC 16.82
## ICS 17.11
## Summary2 14 (9-21)
## Summary Median[Q1-Q3]
## Groups Heteroscedastic
## Normality No
## Differences No
## p-value <0.001
## Method Kruskal-Wallis
## complicacioninternaciondicotomica = Si
## n 23
## Mean 38.52
## Median 28
## Sd 26.67
## Min 8
## Max 126
## Range 118
## Q1 21
## Q3 48.5
## Iqr 27.5
## Normal 0.001
## IIC 38.17
## ICS 38.87
## Summary2 28 (21-48.5)
## Summary
## Groups
## Normality
## Differences
## p-value
## Method
means(todos,todos$demoravaloracion,todos$complicacioninternaciondicotomica,c("No","Si"))
##
## complicacioninternaciondicotomica = No
## n 29
## Mean 2.07
## Median 1
## Sd 1.85
## Min 0
## Max 9
## Range 9
## Q1 1
## Q3 3
## Iqr 2
## Normal 0
## IIC 2.05
## ICS 2.09
## Summary2 1 (1-3)
## Summary Median[Q1-Q3]
## Groups Homocedastics
## Normality No
## Differences Yes
## p-value 0.047
## Method Kruskal-Wallis
## complicacioninternaciondicotomica = Si
## n 23
## Mean 1.43
## Median 1
## Sd 1.97
## Min 0
## Max 7
## Range 7
## Q1 0
## Q3 2
## Iqr 2
## Normal 0
## IIC 1.41
## ICS 1.46
## Summary2 1 (0-2)
## Summary
## Groups
## Normality
## Differences
## p-value
## Method
todos$tiempoevolucion=as.numeric(todos$tiempoevolucion)
## Warning: NAs introduced by coercion
means(todos,todos$tiempoevolucion,todos$complicacioninternaciondicotomica,c("No","Si"))
##
## complicacioninternaciondicotomica = No
## n 28
## Mean 12.14
## Median 7.5
## Sd 12.46
## Min 0
## Max 50
## Range 50
## Q1 3
## Q3 20.75
## Iqr 17.75
## Normal 0.001
## IIC 11.99
## ICS 12.29
## Summary2 7.5 (3-20.75)
## Summary Median[Q1-Q3]
## Groups Homocedastics
## Normality No
## Differences No
## p-value 0.301
## Method Kruskal-Wallis
## complicacioninternaciondicotomica = Si
## n 23
## Mean 8.39
## Median 6
## Sd 8.24
## Min 0
## Max 26
## Range 26
## Q1 1.5
## Q3 12.5
## Iqr 11
## Normal 0.007
## IIC 8.28
## ICS 8.5
## Summary2 6 (1.5-12.5)
## Summary
## Groups
## Normality
## Differences
## p-value
## Method
# Caracterizacion de grupos demografico / Gestion --------------------------------------
means(todos,todos$edad,todos$sexo,labelsexo)
##
## sexo = F sexo = M
## n 23 29
## Mean 57.7 59.59
## Median 56 60
## Sd 14.76 14.69
## Min 33 24
## Max 85 88
## Range 52 64
## Q1 51 50
## Q3 70.5 69
## Iqr 19.5 19
## Normal 0.424 0.954
## IIC 57.5 59.41
## ICS 57.89 59.76
## Summary2 57.7 (57.5-57.89) 59.59 (59.41-59.76)
## Summary Mean[ICI-ICS]
## Groups Homocedastics
## Normality Yes
## Differences No
## p-value 0.647
## Method t-Student(Pooled)
means(todos,todos$edad,todos$sala)
##
## sala = M sala = Q
## n 21 31
## Mean 54 61.97
## Median 52 60
## Sd 15.2 13.5
## Min 24 33
## Max 77 88
## Range 53 55
## Q1 41 53.5
## Q3 68 71
## Iqr 27 17.5
## Normal 0.417 0.749
## IIC 53.79 61.81
## ICS 54.21 62.12
## Summary2 54 (53.79-54.21) 61.97 (61.81-62.12)
## Summary Mean[ICI-ICS]
## Groups Homocedastics
## Normality Yes
## Differences No
## p-value 0.053
## Method t-Student(Pooled)
tables(todos,todos$sala,todos$sexo,c("M","Q"),labelsexo)
##
## sexo
## sala F M Sum
## M 10 11 21
## Q 13 18 31
## Sum 23 29 52
##
## by Row (%)
## F M
## M 47.61 52.38
## Q 41.93 58.06
## 44.23 55.76
##
## by Col (%)
## F M
## M 43.47 37.93 40.38
## Q 56.52 62.06 59.61
##
## Chi2 Pearson p = 0.686
means(todos,todos$demorainterconsulta,todos$sala)
##
## sala = M sala = Q
## n 21 31
## Mean 5.62 5.94
## Median 6 4
## Sd 4.09 7.62
## Min 0 1
## Max 14 37
## Range 14 36
## Q1 2 1.5
## Q3 8 6.5
## Iqr 6 5
## Normal 0.204 0
## IIC 5.56 5.85
## ICS 5.68 6.02
## Summary2 6 (2-8) 4 (1.5-6.5)
## Summary Median[Q1-Q3]
## Groups Heteroscedastic
## Normality No
## Differences No
## p-value 0.387
## Method Kruskal-Wallis
means(todos,todos$diasinternacion,todos$sala)
##
## sala = M sala = Q
## n 21 31
## Mean 23.67 28.42
## Median 23 21
## Sd 16.22 26.1
## Min 5 4
## Max 58 126
## Range 53 122
## Q1 12 13.5
## Q3 28 32.5
## Iqr 16 19
## Normal 0.011 0
## IIC 23.44 28.12
## ICS 23.89 28.72
## Summary2 23 (12-28) 21 (13.5-32.5)
## Summary Median[Q1-Q3]
## Groups Heteroscedastic
## Normality No
## Differences No
## p-value 0.758
## Method Kruskal-Wallis
means(todos,todos$diasinternacion,todos$sexo,labelsexo)
##
## sexo = F sexo = M
## n 23 29
## Mean 29.96 23.76
## Median 25 19
## Sd 28.21 16.87
## Min 4 6
## Max 126 88
## Range 122 82
## Q1 9.5 14
## Q3 41 25
## Iqr 31.5 11
## Normal 0 0
## IIC 29.58 23.56
## ICS 30.33 23.96
## Summary2 25 (9.5-41) 19 (14-25)
## Summary Median[Q1-Q3]
## Groups Heteroscedastic
## Normality No
## Differences No
## p-value 0.685
## Method Kruskal-Wallis
# Caracterizacion demografica / Tratamientos. --------------------------------------
means(todos,todos$edad,todos$insulina)
##
## insulina = 1 insulina = 2
## n 24 28
## Mean 55.71 61.36
## Median 54 61
## Sd 15.1 13.91
## Min 33 24
## Max 85 88
## Range 52 64
## Q1 45.5 54.25
## Q3 68 70.5
## Iqr 22.5 16.25
## Normal 0.319 0.678
## IIC 55.51 61.19
## ICS 55.9 61.52
## Summary2 55.71 (55.51-55.9) 61.36 (61.19-61.52)
## Summary Mean[ICI-ICS]
## Groups Homocedastics
## Normality Yes
## Differences No
## p-value 0.167
## Method t-Student(Pooled)
means(diabeticosconocidos,diabeticosconocidos$tiempoevolucion,diabeticosconocidos$sexo)
##
## sexo = 1 sexo = 2
## n 19 26
## Mean 14.05 10.23
## Median 15 7.5
## Sd 10.93 10.61
## Min 1 1
## Max 34 50
## Range 33 49
## Q1 3 4.25
## Q3 22.5 11
## Iqr 19.5 6.75
## Normal 0.045 0
## IIC 13.89 10.1
## ICS 14.21 10.36
## Summary2 15 (3-22.5) 7.5 (4.25-11)
## Summary Median[Q1-Q3]
## Groups Homocedastics
## Normality No
## Differences No
## p-value 0.407
## Method Kruskal-Wallis
means(diabeticosconocidos,diabeticosconocidos$tiempoevolucion,diabeticosconocidos$insulina,labeldicotomico)
##
## insulina = Si insulina = No
## n 24 21
## Mean 13.67 9.76
## Median 12.5 5
## Sd 9.58 11.92
## Min 1 1
## Max 30 50
## Range 29 49
## Q1 4.75 3
## Q3 23 10
## Iqr 18.25 7
## Normal 0.036 0
## IIC 13.54 9.6
## ICS 13.79 9.93
## Summary2 12.5 (4.75-23) 5 (3-10)
## Summary Median[Q1-Q3]
## Groups Homocedastics
## Normality No
## Differences No
## p-value 0.094
## Method Kruskal-Wallis
means(diabeticosconocidos,diabeticosconocidos$tiempoevolucion,diabeticosconocidos$metformina,labeldicotomico)
##
## metformina = Si metformina = No
## n 23 22
## Mean 12.13 11.55
## Median 8 7
## Sd 11.8 9.89
## Min 1 1
## Max 50 30
## Range 49 29
## Q1 4.5 3
## Q3 13.5 21.5
## Iqr 9 18.5
## Normal 0 0.007
## IIC 11.97 11.41
## ICS 12.29 11.68
## Summary2 8 (4.5-13.5) 7 (3-21.5)
## Summary Median[Q1-Q3]
## Groups Homocedastics
## Normality No
## Differences No
## p-value 0.724
## Method Kruskal-Wallis
# Agregados 27 de julio
# Comparaciones buen vs mal control metabolico
freq(todos,todos$buencontrolinternacion,labeldicotomico,using_na=T)
##
## absolute relative cumulative ici ics
## Si 11 21.15 21.15 11.06 34.7
## No 41 78.85 100 65.3 88.94
## Total 52 100.00
tables(todos,todos$buencontrolinternacion,todos$complicacioninternaciondicotomica,labeldicotomico,c("No","Si"))
##
## complicacioninternaciondicotomica
## buencontrolinternacion No Si Sum
## Si 9 2 11
## No 20 21 41
## Sum 29 23 52
##
## by Row (%)
## No Si
## Si 81.81 18.18
## No 48.78 51.21
## 55.76 44.23
##
## by Col (%)
## No Si
## Si 31.03 8.69 21.15
## No 68.96 91.30 78.84
##
## Fischer Test p = 0.086
means(todos, todos$edad, todos$buencontrolinternacion,labeldicotomico)
##
## buencontrolinternacion = Si buencontrolinternacion = No
## n 11 41
## Mean 65.45 56.95
## Median 69 56
## Sd 13.16 14.59
## Min 35 24
## Max 85 88
## Range 50 64
## Q1 58 48
## Q3 72 66
## Iqr 14 18
## Normal 0.246 0.933
## IIC 65.2 56.81
## ICS 65.71 57.1
## Summary2 65.45 (65.2-65.71) 56.95 (56.81-57.1)
## Summary Mean[ICI-ICS]
## Groups Homocedastics
## Normality Yes
## Differences No
## p-value 0.086
## Method t-Student(Pooled)
tables(todos,todos$buencontrolinternacion,todos$sexo,labeldicotomico,labelsexo)
##
## sexo
## buencontrolinternacion F M Sum
## Si 8 3 11
## No 15 26 41
## Sum 23 29 52
##
## by Row (%)
## F M
## Si 72.72 27.27
## No 36.58 63.41
## 44.23 55.76
##
## by Col (%)
## F M
## Si 34.78 10.34 21.15
## No 65.21 89.65 78.84
##
## Fischer Test p = 0.044
means(todos,todos$tiempoevolucion,todos$buencontrolinternacion,labeldicotomico)
##
## buencontrolinternacion = Si buencontrolinternacion = No
## n 10 41
## Mean 11.3 10.24
## Median 5 7
## Sd 12.51 10.54
## Min 1 0
## Max 34 50
## Range 33 50
## Q1 3 2
## Q3 18.5 15
## Iqr 15.5 13
## Normal 0.007 0
## IIC 11.04 10.14
## ICS 11.56 10.35
## Summary2 5 (3-18.5) 7 (2-15)
## Summary Median[Q1-Q3]
## Groups Homocedastics
## Normality No
## Differences No
## p-value 0.934
## Method Kruskal-Wallis
tables(todos,todos$buencontrolinternacion,todos$repercusionmicro,labeldicotomico,labeldicotomico)
##
## repercusionmicro
## buencontrolinternacion Si No Sum
## Si 5 6 11
## No 23 18 41
## Sum 28 24 52
##
## by Row (%)
## Si No
## Si 45.45 54.54
## No 56.09 43.90
## 53.84 46.15
##
## by Col (%)
## Si No
## Si 17.85 25 21.15
## No 82.14 75 78.84
##
## Chi2 Pearson p = 0.53
tables(todos,todos$buencontrolinternacion,todos$retinopatia,labeldicotomico,labeldicotomico)
##
## retinopatia
## buencontrolinternacion Si No Sum
## Si 2 9 11
## No 10 31 41
## Sum 12 40 52
##
## by Row (%)
## Si No
## Si 18.18 81.81
## No 24.39 75.60
## 23.07 76.92
##
## by Col (%)
## Si No
## Si 16.66 22.5 21.15
## No 83.33 77.5 78.84
##
## Fischer Test p > 0.999
tables(todos,todos$buencontrolinternacion,todos$nefropatia,labeldicotomico,labeldicotomico)
##
## nefropatia
## buencontrolinternacion Si No Sum
## Si 3 8 11
## No 18 23 41
## Sum 21 31 52
##
## by Row (%)
## Si No
## Si 27.27 72.72
## No 43.90 56.09
## 40.38 59.61
##
## by Col (%)
## Si No
## Si 14.28 25.80 21.15
## No 85.71 74.19 78.84
##
## Fischer Test p = 0.491
tables(todos,todos$buencontrolinternacion,todos$insuficienciarenal,labeldicotomico,labeldicotomico)
##
## insuficienciarenal
## buencontrolinternacion Si No Sum
## Si 3 8 11
## No 18 23 41
## Sum 21 31 52
##
## by Row (%)
## Si No
## Si 27.27 72.72
## No 43.90 56.09
## 40.38 59.61
##
## by Col (%)
## Si No
## Si 14.28 25.80 21.15
## No 85.71 74.19 78.84
##
## Fischer Test p = 0.491
tables(todos,todos$buencontrolinternacion,todos$neuropatia,labeldicotomico,labeldicotomico)
##
## neuropatia
## buencontrolinternacion Si No Sum
## Si 4 7 11
## No 19 21 40
## Sum 23 28 51
##
## by Row (%)
## Si No
## Si 36.36 63.63
## No 47.50 52.50
## 45.09 54.90
##
## by Col (%)
## Si No
## Si 17.39 25 21.56
## No 82.60 75 78.43
##
## Fischer Test p = 0.734
tables(todos,todos$buencontrolinternacion,todos$neuropatiaautonomica,labeldicotomico,c("Si","No","NE"))
##
## neuropatiaautonomica
## buencontrolinternacion Si No NE Sum
## Si 0 10 1 11
## No 1 40 0 41
## Sum 1 50 1 52
##
## by Row (%)
## Si No NE
## Si 0.00 90.90 9.09
## No 2.43 97.56 0.00
## 1.92 96.15 1.92
##
## by Col (%)
## Si No NE
## Si 0 20 100 21.15
## No 100 80 0 78.84
##
## Fischer Test p = 0.382
tables(todos,todos$buencontrolinternacion,todos$cardiopatiaisquemica,labeldicotomico,labeldicotomico)
##
## cardiopatiaisquemica
## buencontrolinternacion Si No Sum
## Si 1 10 11
## No 13 28 41
## Sum 14 38 52
##
## by Row (%)
## Si No
## Si 9.09 90.90
## No 31.70 68.29
## 26.92 73.07
##
## by Col (%)
## Si No
## Si 7.14 26.31 21.15
## No 92.85 73.68 78.84
##
## Fischer Test p = 0.251
tables(todos,todos$buencontrolinternacion,todos$acvoait,labeldicotomico,labeldicotomico)
##
## acvoait
## buencontrolinternacion Si No Sum
## Si 1 10 11
## No 5 36 41
## Sum 6 46 52
##
## by Row (%)
## Si No
## Si 9.09 90.90
## No 12.19 87.80
## 11.53 88.46
##
## by Col (%)
## Si No
## Si 16.66 21.73 21.15
## No 83.33 78.26 78.84
##
## Fischer Test p > 0.999
tables(todos,todos$buencontrolinternacion,todos$aocmmii,labeldicotomico,labeldicotomico)
##
## aocmmii
## buencontrolinternacion Si No Sum
## Si 1 10 11
## No 5 36 41
## Sum 6 46 52
##
## by Row (%)
## Si No
## Si 9.09 90.90
## No 12.19 87.80
## 11.53 88.46
##
## by Col (%)
## Si No
## Si 16.66 21.73 21.15
## No 83.33 78.26 78.84
##
## Fischer Test p > 0.999
tables(todos,todos$buencontrolinternacion,todos$lesionespie,labeldicotomico,labeldicotomico)
##
## lesionespie
## buencontrolinternacion Si No Sum
## Si 1 10 11
## No 10 31 41
## Sum 11 41 52
##
## by Row (%)
## Si No
## Si 9.09 90.90
## No 24.39 75.60
## 21.15 78.84
##
## by Col (%)
## Si No
## Si 9.09 24.39 21.15
## No 90.90 75.60 78.84
##
## Fischer Test p = 0.42
tables(todos,todos$buencontrolinternacion,todos$adoduranteinternacion,labeldicotomico,labeldicotomico)
##
## adoduranteinternacion
## buencontrolinternacion Si No Sum
## Si 5 6 11
## No 14 27 41
## Sum 19 33 52
##
## by Row (%)
## Si No
## Si 45.45 54.54
## No 34.14 65.85
## 36.53 63.46
##
## by Col (%)
## Si No
## Si 26.31 18.18 21.15
## No 73.68 81.81 78.84
##
## Fischer Test p = 0.503
tables(todos,todos$buencontrolinternacion,todos$insulinabasal_int,labeldicotomico,labeldicotomico)
##
## insulinabasal_int
## buencontrolinternacion Si No Sum
## Si 5 6 11
## No 33 8 41
## Sum 38 14 52
##
## by Row (%)
## Si No
## Si 45.45 54.54
## No 80.48 19.51
## 73.07 26.92
##
## by Col (%)
## Si No
## Si 13.15 42.85 21.15
## No 86.84 57.14 78.84
##
## Fischer Test p = 0.05
# No podemos usar la insulina prandial en la internacion para hacer una tabla
# porque todos estaban con insulina prandial
#tables(todos,todos$buencontrolinternacion,todos$insulinaprandial_int,labeldicotomico,labeldicotomico)
tables(todos,todos$buencontrolinternacion,todos$insulinaprandiapor_int,labeldicotomico,c("x valor","x valor/consumo"))
##
## insulinaprandiapor_int
## buencontrolinternacion x valor x valor/consumo Sum
## Si 11 0 11
## No 30 11 41
## Sum 41 11 52
##
## by Row (%)
## x valor x valor/consumo
## Si 100.00 0.00
## No 73.17 26.82
## 78.84 21.15
##
## by Col (%)
## x valor x valor/consumo
## Si 26.82 0 21.15
## No 73.17 100 78.84
##
## Fischer Test p = 0.093
# Comparaciones complicaciones internacion vs no complicaciones internacion
tables(todos,todos$complicacioninternaciondicotomica,todos$repercusionmicro,c("No","Si"),labeldicotomico)
##
## repercusionmicro
## complicacioninternaciondicotomica Si No Sum
## No 13 16 29
## Si 15 8 23
## Sum 28 24 52
##
## by Row (%)
## Si No
## No 44.82 55.17
## Si 65.21 34.78
## 53.84 46.15
##
## by Col (%)
## Si No
## No 46.42 66.66 55.76
## Si 53.57 33.33 44.23
##
## Chi2 Pearson p = 0.143
tables(todos,todos$complicacioninternaciondicotomica,todos$retinopatia,c("No","Si"),labeldicotomico)
##
## retinopatia
## complicacioninternaciondicotomica Si No Sum
## No 4 25 29
## Si 8 15 23
## Sum 12 40 52
##
## by Row (%)
## Si No
## No 13.79 86.20
## Si 34.78 65.21
## 23.07 76.92
##
## by Col (%)
## Si No
## No 33.33 62.5 55.76
## Si 66.66 37.5 44.23
##
## Chi2 Pearson p = 0.074
tables(todos,todos$complicacioninternaciondicotomica,todos$nefropatia,c("No","Si"),labeldicotomico)
##
## nefropatia
## complicacioninternaciondicotomica Si No Sum
## No 8 21 29
## Si 13 10 23
## Sum 21 31 52
##
## by Row (%)
## Si No
## No 27.58 72.41
## Si 56.52 43.47
## 40.38 59.61
##
## by Col (%)
## Si No
## No 38.09 67.74 55.76
## Si 61.90 32.25 44.23
##
## Chi2 Pearson p = 0.035
tables(todos,todos$complicacioninternaciondicotomica,todos$insuficienciarenal,c("No","Si"),labeldicotomico)
##
## insuficienciarenal
## complicacioninternaciondicotomica Si No Sum
## No 8 21 29
## Si 13 10 23
## Sum 21 31 52
##
## by Row (%)
## Si No
## No 27.58 72.41
## Si 56.52 43.47
## 40.38 59.61
##
## by Col (%)
## Si No
## No 38.09 67.74 55.76
## Si 61.90 32.25 44.23
##
## Chi2 Pearson p = 0.035
tables(todos,todos$complicacioninternaciondicotomica,todos$neuropatia,c("No","Si"),labeldicotomico)
##
## neuropatia
## complicacioninternaciondicotomica Si No Sum
## No 12 17 29
## Si 11 11 22
## Sum 23 28 51
##
## by Row (%)
## Si No
## No 41.37 58.62
## Si 50.00 50.00
## 45.09 54.90
##
## by Col (%)
## Si No
## No 52.17 60.71 56.86
## Si 47.82 39.28 43.13
##
## Chi2 Pearson p = 0.54
tables(todos,todos$complicacioninternaciondicotomica,todos$neuropatiaautonomica,c("No","Si"),c("Si","No","NE"))
##
## neuropatiaautonomica
## complicacioninternaciondicotomica Si No NE Sum
## No 0 29 0 29
## Si 1 21 1 23
## Sum 1 50 1 52
##
## by Row (%)
## Si No NE
## No 0.00 100.00 0.00
## Si 4.34 91.30 4.34
## 1.92 96.15 1.92
##
## by Col (%)
## Si No NE
## No 0 58 0 55.76
## Si 100 42 100 44.23
##
## Fischer Test p = 0.191
tables(todos,todos$complicacioninternaciondicotomica,todos$cardiopatiaisquemica,c("No","Si"),labeldicotomico)
##
## cardiopatiaisquemica
## complicacioninternaciondicotomica Si No Sum
## No 10 19 29
## Si 4 19 23
## Sum 14 38 52
##
## by Row (%)
## Si No
## No 34.48 65.51
## Si 17.39 82.60
## 26.92 73.07
##
## by Col (%)
## Si No
## No 71.42 50 55.76
## Si 28.57 50 44.23
##
## Chi2 Pearson p = 0.168
tables(todos,todos$complicacioninternaciondicotomica,todos$acvoait,c("No","Si"),labeldicotomico)
##
## acvoait
## complicacioninternaciondicotomica Si No Sum
## No 3 26 29
## Si 3 20 23
## Sum 6 46 52
##
## by Row (%)
## Si No
## No 10.34 89.65
## Si 13.04 86.95
## 11.53 88.46
##
## by Col (%)
## Si No
## No 50 56.52 55.76
## Si 50 43.47 44.23
##
## Fischer Test p > 0.999
tables(todos,todos$complicacioninternaciondicotomica,todos$aocmmii,c("No","Si"),labeldicotomico)
##
## aocmmii
## complicacioninternaciondicotomica Si No Sum
## No 3 26 29
## Si 3 20 23
## Sum 6 46 52
##
## by Row (%)
## Si No
## No 10.34 89.65
## Si 13.04 86.95
## 11.53 88.46
##
## by Col (%)
## Si No
## No 50 56.52 55.76
## Si 50 43.47 44.23
##
## Fischer Test p > 0.999
tables(todos,todos$complicacioninternaciondicotomica,todos$lesionespie,c("No","Si"),labeldicotomico)
##
## lesionespie
## complicacioninternaciondicotomica Si No Sum
## No 6 23 29
## Si 5 18 23
## Sum 11 41 52
##
## by Row (%)
## Si No
## No 20.68 79.31
## Si 21.73 78.26
## 21.15 78.84
##
## by Col (%)
## Si No
## No 54.54 56.09 55.76
## Si 45.45 43.90 44.23
##
## Fischer Test p > 0.999
# Hay muy poco dato del control previo, fundamentalmente de la hba1c, solo un 15%
means(todos,todos$valorhba1c36mesesprevios,todos$complicacioninternaciondicotomica,c("No","Si"))
##
## complicacioninternaciondicotomica = No
## n 4
## Mean 9.03
## Median 7.6
## Sd 3.82
## Min 6.3
## Max 14.6
## Range 8.3
## Q1 6.67
## Q3 9.95
## Iqr 3.28
## Normal 0.128
## IIC 8.89
## ICS 9.16
## Summary2 9.03 (8.89-9.16)
## Summary Mean[ICI-ICS]
## Groups Homocedastics
## Normality Yes
## Differences No
## p-value 0.476
## Method t-Student(Pooled)
## complicacioninternaciondicotomica = Si
## n 5
## Mean 11.12
## Median 10.1
## Sd 4.38
## Min 7.4
## Max 18.3
## Range 10.9
## Q1 8
## Q3 11.8
## Iqr 3.8
## Normal 0.264
## IIC 10.99
## ICS 11.25
## Summary2 11.12 (10.99-11.25)
## Summary
## Groups
## Normality
## Differences
## p-value
## Method
means(todos,todos$glucemia6mesesprevios,todos$complicacioninternaciondicotomica,c("No","Si"))
##
## complicacioninternaciondicotomica = No
## n 4
## Mean 153.5
## Median 136.5
## Sd 76.25
## Min 81
## Max 260
## Range 179
## Q1 114
## Q3 176
## Iqr 62
## Normal 0.551
## IIC 150.9
## ICS 156.1
## Summary2 153.5 (150.9-156.1)
## Summary Mean[ICI-ICS]
## Groups Homocedastics
## Normality Yes
## Differences No
## p-value 0.248
## Method t-Student(Pooled)
## complicacioninternaciondicotomica = Si
## n 10
## Mean 285.7
## Median 223
## Sd 208.07
## Min 62
## Max 725
## Range 663
## Q1 157.25
## Q3 382.5
## Iqr 225.25
## Normal 0.189
## IIC 281.46
## ICS 289.94
## Summary2 285.7 (281.46-289.94)
## Summary
## Groups
## Normality
## Differences
## p-value
## Method
tables(todos,todos$complicacioninternaciondicotomica,todos$adoduranteinternacion,c("No","Si"),labeldicotomico)
##
## adoduranteinternacion
## complicacioninternaciondicotomica Si No Sum
## No 13 16 29
## Si 6 17 23
## Sum 19 33 52
##
## by Row (%)
## Si No
## No 44.82 55.17
## Si 26.08 73.91
## 36.53 63.46
##
## by Col (%)
## Si No
## No 68.42 48.48 55.76
## Si 31.57 51.51 44.23
##
## Chi2 Pearson p = 0.163
tables(todos,todos$complicacioninternaciondicotomica,todos$insulinabasal_int,c("No","Si"),labeldicotomico)
##
## insulinabasal_int
## complicacioninternaciondicotomica Si No Sum
## No 17 12 29
## Si 21 2 23
## Sum 38 14 52
##
## by Row (%)
## Si No
## No 58.62 41.37
## Si 91.30 8.69
## 73.07 26.92
##
## by Col (%)
## Si No
## No 44.73 85.71 55.76
## Si 55.26 14.28 44.23
##
## Chi2 Pearson p = 0.008
# No podemos usar la insulina prandial en la internacion para hacer una tabla
# porque todos estaban con insulina prandial
#tables(todos,todos$buencontrolinternacion,todos$insulinaprandial_int,labeldicotomico,labeldicotomico)
tables(todos,todos$complicacioninternaciondicotomica,todos$insulinaprandiapor_int,c("No","Si"),c("x valor","x valor/consumo"))
##
## insulinaprandiapor_int
## complicacioninternaciondicotomica x valor x valor/consumo Sum
## No 23 6 29
## Si 18 5 23
## Sum 41 11 52
##
## by Row (%)
## x valor x valor/consumo
## No 79.31 20.68
## Si 78.26 21.73
## 78.84 21.15
##
## by Col (%)
## x valor x valor/consumo
## No 56.09 54.54 55.76
## Si 43.90 45.45 44.23
##
## Fischer Test p > 0.999
