proyecto.R
Mauricio
2020-03-05
source("C:\\Estadisticas\\api_2019.R")## Loading required package: gplots##
## Attaching package: 'gplots'## The following object is masked from 'package:stats':
##
## lowess## Loading required package: XLConnectJars## XLConnect 0.2-15 by Mirai Solutions GmbH [aut],
## Martin Studer [cre],
## The Apache Software Foundation [ctb, cph] (Apache POI),
## Graph Builder [ctb, cph] (Curvesapi Java library)## http://www.mirai-solutions.com
## https://github.com/miraisolutions/xlconnect##
## Attaching package: 'openxlsx'## The following objects are masked from 'package:XLConnect':
##
## getTables, loadWorkbook, mergeCells, saveWorkbookdata <- read.xlsx("C:\\Estadisticas\\Gabriela.xlsx", sheet = 2, startRow = 1, colNames = TRUE)
freq(data,data$SEXO,using_na=T)
##
## absoluta relativa acumulada intervalo confianza inferior
## Hombre 2 10 10 1.23
## Mujer 18 90 100 68.3
## Total 20 100.00
## intervalo confianza inferior
## Hombre 31.7
## Mujer 98.77
## Totalmeans(data,data$EDAD)##
## EDAD
## n 20
## Media 46.1
## Mediana 45.5
## DS 12.15
## Min 18
## Max 68
## Rango 50
## Q1 42
## Q3 49.75
## RIQ 7.75
## Normal 0.296
## ICI 40.41
## ICS 51.79
## Resumen Media[ICI-ICS] --> 46.1(40.41-51.79)
means(data,data$TSH_INICIAL)##
## TSH_INICIAL
## n 20
## Media 0.8
## Mediana 0.9
## DS 0.67
## Min 0.1
## Max 2.6
## Rango 2.5
## Q1 0.2
## Q3 0.9
## RIQ 0.7
## Normal 0.007
## ICI 0.48
## ICS 1.11
## Resumen Mediana[Q1-Q3] -->0.9(0.2-0.9)
means(data,data$TSH_DIA_20)##
## TSH_DIA_20
## n 19
## Media 62.6
## Mediana 56
## DS 29.17
## Min 14.25
## Max 100
## Rango 85.75
## Q1 38
## Q3 91.85
## RIQ 53.85
## Normal 0.075
## ICI 48.54
## ICS 76.66
## Resumen Media[ICI-ICS] --> 62.6(48.54-76.66)
means(data,data$DOSIS_T4)##
## DOSIS_T4
## n 20
## Media 150.5
## Mediana 150
## DS 40.29
## Min 100
## Max 260
## Rango 160
## Q1 125
## Q3 150
## RIQ 25
## Normal 0.005
## ICI 131.64
## ICS 169.36
## Resumen Mediana[Q1-Q3] -->150(125-150)
means(data,data$TSH_PER)##
## TSH_PER
## n 20
## Media 98.82
## Mediana 100
## DS 5.27
## Min 76.41
## Max 100
## Rango 23.59
## Q1 100
## Q3 100
## RIQ 0
## Normal 0
## ICI 96.35
## ICS 101.29
## Resumen Mediana[Q1-Q3] -->100(100-100)
means(data,data$IMC)##
## IMC
## n 20
## Media 28.67
## Mediana 27.5
## DS 6.22
## Min 18
## Max 45
## Rango 27
## Q1 25.75
## Q3 30
## RIQ 4.25
## Normal 0.041
## ICI 25.76
## ICS 31.58
## Resumen Mediana[Q1-Q3] -->27.5(25.75-30)
means(data,data$TSH_DIA_20,data$SEXO)##
## TSH_DIA_20 by SEXO = Hombre TSH_DIA_20 by SEXO = Mujer
## n 2 17
## Media 53 63.73
## Mediana 53 56
## DS 21.5 30.26
## Min 37.8 14.25
## Max 68.2 100
## Rango 30.4 85.75
## Q1 45.4 38.2
## Q3 60.6 95
## RIQ 15.2 56.8
## Normal -1 0.056
## ICI -1 48.18
## ICS -1 79.29
## Resumen2 53 (45.4-60.6) 56 (38.2-95)
## Resumen1 Mediana[Q1-Q3]
## grupos Homocedastica
## Normalidad No
## Diferencias No
## p-value 0.595
## Metodo Kruskal-Wallis
freq(data,data$categoria_TSHINICIAL,using_na=T) 
##
## absoluta relativa acumulada intervalo confianza inferior
## 0.1 a 0.5 7 35 35 15.39
## 0.5 a 2 11 55 90 31.53
## Mas de 2 2 10 100 1.23
## Total 20 100.00
## intervalo confianza inferior
## 0.1 a 0.5 59.22
## 0.5 a 2 76.94
## Mas de 2 31.7
## Totalfreq(data,data$Categoria_IMC,using_na=T) 
##
## absoluta relativa acumulada intervalo confianza inferior
## 20 a 24 4 20 20 5.73
## 25 a 29 10 50 70 27.2
## Mas de 30 6 30 100 11.89
## Total 20 100.00
## intervalo confianza inferior
## 20 a 24 43.66
## 25 a 29 72.8
## Mas de 30 54.28
## Totalfreq(data,data$edadcategoria2,using_na=T)
##
## absoluta relativa acumulada intervalo confianza inferior
## 30 a 50 12 60 60 36.05
## 50 a 70 5 25 85 8.66
## Menor a 30 3 15 100 3.21
## Total 20 100.00
## intervalo confianza inferior
## 30 a 50 80.88
## 50 a 70 49.1
## Menor a 30 37.89
## Totalfreq(data,data$categoriaedad,using_na=T)
##
## absoluta relativa acumulada intervalo confianza inferior
## Entre 30 y 45 5 25 25 8.66
## Entre 45 y 55 9 45 70 23.06
## Mas de 55 4 20 90 5.73
## Menor a 30 2 10 100 1.23
## Total 20 100.00
## intervalo confianza inferior
## Entre 30 y 45 49.1
## Entre 45 y 55 68.47
## Mas de 55 43.66
## Menor a 30 31.7
## Totalmeans(data,data$TSH_DIA_20,data$categoriaTSHINICIAL)##
## TSH_DIA_20
## n 19
## Media 62.6
## Mediana 56
## DS 29.17
## Min 14.25
## Max 100
## Rango 85.75
## Q1 38
## Q3 91.85
## RIQ 53.85
## Normal 0.075
## ICI 48.54
## ICS 76.66
## Resumen Media[ICI-ICS] --> 62.6(48.54-76.66)
means(data,data$TSH_DIA_20,data$edadcategoria2)##
## TSH_DIA_20 by edadcategoria2 = 30 a 50
## n 11
## Media 70.74
## Mediana 77.75
## DS 26.13
## Min 27
## Max 100
## Rango 73
## Q1 49.95
## Q3 93.72
## RIQ 43.77
## Normal 0.277
## ICI 53.18
## ICS 88.29
## Resumen2 70.74 (53.18-88.29)
## Resumen1 Media[ICI-ICS]
## grupos Homocedastica
## Normalidad Si
## Diferencias No
## p-value 0.354
## Metodo ANOVA
## TSH_DIA_20 by edadcategoria2 = 50 a 70
## n 5
## Media 48.22
## Mediana 38.2
## DS 27.14
## Min 25.8
## Max 95
## Rango 69.2
## Q1 36
## Q3 46.1
## RIQ 10.1
## Normal 0.076
## ICI 14.53
## ICS 81.91
## Resumen2 48.22 (14.53-81.91)
## Resumen1
## grupos
## Normalidad
## Diferencias
## p-value
## Metodo
## TSH_DIA_20 by edadcategoria2 = Menor a 30
## n 3
## Media 56.75
## Mediana 56
## DS 42.88
## Min 14.25
## Max 100
## Rango 85.75
## Q1 35.12
## Q3 78
## RIQ 42.88
## Normal 0.971
## ICI -49.77
## ICS 163.27
## Resumen2 56.75 (-49.77-163.27)
## Resumen1
## grupos
## Normalidad
## Diferencias
## p-value
## Metodo
means(data,data$TSH_DIA_20,data$categoriaedad)##
## TSH_DIA_20 by categoriaedad = Entre 30 y 45
## n 5
## Media 64.74
## Mediana 68.2
## DS 28.18
## Min 27
## Max 100
## Rango 73
## Q1 48.5
## Q3 80
## RIQ 31.5
## Normal 0.985
## ICI 29.75
## ICS 99.73
## Resumen2 68.2 (48.5-80)
## Resumen1 Mediana[Q1-Q3]
## grupos Homocedastica
## Normalidad No
## Diferencias No
## p-value 0.207
## Metodo Kruskal-Wallis
## TSH_DIA_20 by categoriaedad = Entre 45 y 55
## n 8
## Media 59
## Mediana 53.7
## DS 28.28
## Min 14.25
## Max 100
## Rango 85.75
## Q1 44.03
## Q3 80.49
## RIQ 36.46
## Normal 0.915
## ICI 35.35
## ICS 82.65
## Resumen2 53.7 (44.03-80.49)
## Resumen1
## grupos
## Normalidad
## Diferencias
## p-value
## Metodo
## TSH_DIA_20 by categoriaedad = Mas de 55
## n 4
## Media 48.75
## Mediana 37.1
## DS 31.3
## Min 25.8
## Max 95
## Rango 69.2
## Q1 33.45
## Q3 52.4
## RIQ 18.95
## Normal 0.073
## ICI -1.06
## ICS 98.56
## Resumen2 37.1 (33.45-52.4)
## Resumen1
## grupos
## Normalidad
## Diferencias
## p-value
## Metodo
## TSH_DIA_20 by categoriaedad = Menor a 30
## n 2
## Media 99.38
## Mediana 99.38
## DS 0.88
## Min 98.75
## Max 100
## Rango 1.25
## Q1 99.06
## Q3 99.69
## RIQ 0.62
## Normal -1
## ICI -1
## ICS -1
## Resumen2 99.38 (99.06-99.69)
## Resumen1
## grupos
## Normalidad
## Diferencias
## p-value
## Metodo
means(data,data$TSH_DIA_20,data$Categoria_IMC)##
## TSH_DIA_20 by Categoria_IMC = 20 a 24
## n 4
## Media 79.24
## Mediana 89.38
## DS 28.85
## Min 38.2
## Max 100
## Rango 61.8
## Q1 69.55
## Q3 99.06
## RIQ 29.51
## Normal 0.175
## ICI 33.34
## ICS 125.14
## Resumen2 79.24 (33.34-125.14)
## Resumen1 Media[ICI-ICS]
## grupos Homocedastica
## Normalidad Si
## Diferencias No
## p-value 0.459
## Metodo ANOVA
## TSH_DIA_20 by Categoria_IMC = 25 a 29
## n 9
## Media 59.08
## Mediana 51.4
## DS 25.75
## Min 25.8
## Max 100
## Rango 74.2
## Q1 37.8
## Q3 77.75
## RIQ 39.95
## Normal 0.632
## ICI 39.29
## ICS 78.88
## Resumen2 59.08 (39.29-78.88)
## Resumen1
## grupos
## Normalidad
## Diferencias
## p-value
## Metodo
## TSH_DIA_20 by Categoria_IMC = Mas de 30
## n 6
## Media 56.79
## Mediana 52.25
## DS 34.91
## Min 14.25
## Max 100
## Rango 85.75
## Q1 32.38
## Q3 85.25
## RIQ 52.88
## Normal 0.507
## ICI 20.16
## ICS 93.43
## Resumen2 56.79 (20.16-93.43)
## Resumen1
## grupos
## Normalidad
## Diferencias
## p-value
## Metodo
lineal(data$TSH_INICIAL,data$TSH_DIA_20,"TSH inicial","TST dia 20");##
## Call:
## lm(formula = y ~ x)
##
## Coefficients:
## (Intercept) x
## 1.19190 -0.00642
##
## [1] "r2=0.075"
## [1] "p=0.258"