Análisis Dra Ilse S
MDatos
2022-11-09
OBJETIVO GENERAL. Determinar la concordancia de los Hallazgos Clínicos con los electromiográficos en Radiculopatía lumbar
OBJETIVOS ESPECÍFICOS. 1. Describir las características del dolor referido por los pacientes.
Describir la frecuencia con la que se presentan las alteraciones de los reflejos de estiramiento muscular.
Describir la frecuencia de alteraciones en la fuerza muscular.
Describir las alteraciones en latencias y amplitudes nerviosas, en la neuroconducción, motora y sensorial.
Describir la frecuencia de alteraciones en la respuesta F.
Describir las alteraciones más frecuenten en el reflejo H.
Describir el hallazgo más significativo en la actividad espontánea.
Describir las características del PAUM ante un diagnóstico confirmatorio de radiculopatía.
#Se trabajó con los siguientes paquetes
library(tidyverse)## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ──
## ✔ ggplot2 3.3.6 ✔ purrr 0.3.4
## ✔ tibble 3.1.7 ✔ dplyr 1.0.9
## ✔ tidyr 1.2.0 ✔ stringr 1.4.0
## ✔ readr 2.1.2 ✔ forcats 0.5.1
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()library(magrittr)##
## Attaching package: 'magrittr'
##
## The following object is masked from 'package:purrr':
##
## set_names
##
## The following object is masked from 'package:tidyr':
##
## extractlibrary(gtsummary)## #BlackLivesMatterlibrary(dlookr)##
## Attaching package: 'dlookr'
##
## The following object is masked from 'package:magrittr':
##
## extract
##
## The following object is masked from 'package:tidyr':
##
## extract
##
## The following object is masked from 'package:base':
##
## transformlibrary(gtable)
library(gt)
library(ggpubr)library(readxl)
dbdrilse <- read_excel("C:/Users/fidel/OneDrive - CINVESTAV/PROYECTO MDatos/TRABAJOS/Dra Ilse Escamilla/dbdrilse.xlsx")## New names:
## • `RADICULOPATIA` -> `RADICULOPATIA...1`
## • `RADICULOPATIA` -> `RADICULOPATIA...52`dbdrailse<-dbdrilsedbdrailse## # A tibble: 51 × 53
## RADICULOPATI…¹ EDAD RAZA SEXO DOLOR TIPO …² IRRAD…³ INTEN…⁴ SENSI…⁵ FUERZA
## <chr> <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 SI 49 MEX F SI ARDORO… AMBAS … SEVERO ALTERA… ALTER…
## 2 SI 69 MEX F SI OPRESI… AMBOS … MODERA… NO ALT… ALTER…
## 3 NO 57 MEX F SI OPRESI… LUMBAR… LEVE ALTERA… ALTER…
## 4 NO 60 MEX F SI QUEMAN… AMBAS … LEVE ALTERA… ALTER…
## 5 SI 33 MEX F NO <NA> <NA> <NA> ALTERA… ALTER…
## 6 NO 62 MEX F SI TIRON EXTRME… LEVE NO ALT… ALTER…
## 7 NO 48 MEX F SI PUNZAN… LUMBAR… MODERA… NO ALT… ALTER…
## 8 SI 50 MEX M SI OPRESI… LUMBAR… LEVE ALTERA… ALTER…
## 9 NO 52 MEX F SI PUNZATE PELVIC… LEVE ALTERA… ALTER…
## 10 NO 64 MEX F SI PUNZAN… LUMBAR… LEVE ALTERA… ALTER…
## # … with 41 more rows, 43 more variables:
## # `REFLEJOS DE LIBERACION PIRAMIDAL` <chr>, REMS <chr>, `REM ANORMAL` <chr>,
## # `AMPLITUD MOTORA DE NERVIO PERONEO` <chr>, `AMPLITUD PERONEO` <chr>,
## # `AMPLITUD MOTORA DE NERVIO TIBIAL` <chr>, `AMPLITUD TIBIAL` <chr>,
## # `AMPLITUD SENSITIVA DE NERVIO SURAL ALTERADA` <chr>,
## # `AMPLITUD SURAL` <chr>,
## # `LATENCIA INICIAL DE NERVIO PERONEO ALTERADA` <chr>, …Analísis Exploratorio de la base de datos
library(funModeling) ## Loading required package: Hmisc## Loading required package: lattice## Loading required package: survival## Loading required package: Formula##
## Attaching package: 'Hmisc'## The following object is masked from 'package:gt':
##
## html## The following object is masked from 'package:dlookr':
##
## describe## The following objects are masked from 'package:dplyr':
##
## src, summarize## The following objects are masked from 'package:base':
##
## format.pval, units## funModeling v.1.9.4 :)
## Examples and tutorials at livebook.datascienceheroes.com
## / Now in Spanish: librovivodecienciadedatos.ailibrary(tidyverse)
library(Hmisc)glimpse(dbdrailse)## Rows: 51
## Columns: 53
## $ RADICULOPATIA...1 <chr> "SI", "SI…
## $ EDAD <dbl> 49, 69, 5…
## $ RAZA <chr> "MEX", "M…
## $ SEXO <chr> "F", "F",…
## $ DOLOR <chr> "SI", "SI…
## $ `TIPO DE DOLOR` <chr> "ARDOROSO…
## $ IRRADIACIÓN <chr> "AMBAS PI…
## $ `INTENSIDAD DEL DOLOR` <chr> "SEVERO",…
## $ SENSIBILIDAD <chr> "ALTERADA…
## $ FUERZA <chr> "ALTERADA…
## $ `REFLEJOS DE LIBERACION PIRAMIDAL` <chr> "NO", "NO…
## $ REMS <chr> "ALTERADO…
## $ `REM ANORMAL` <chr> "PATELAR …
## $ `AMPLITUD MOTORA DE NERVIO PERONEO` <chr> "NORMAL",…
## $ `AMPLITUD PERONEO` <chr> NA, NA, N…
## $ `AMPLITUD MOTORA DE NERVIO TIBIAL` <chr> "NORMAL",…
## $ `AMPLITUD TIBIAL` <chr> NA, "BILA…
## $ `AMPLITUD SENSITIVA DE NERVIO SURAL ALTERADA` <chr> "ANORMAL"…
## $ `AMPLITUD SURAL` <chr> "BILATERA…
## $ `LATENCIA INICIAL DE NERVIO PERONEO ALTERADA` <chr> "NORMAL",…
## $ `LATENCIA PERONEO` <chr> NA, NA, N…
## $ `LATENCIA INICIAL DE NERVIO TIBIAL ALATERADA` <chr> "NORMAL",…
## $ `LATENCIA TIBIAL` <chr> NA, "BILA…
## $ `LATENCIA PICO DE NERVIO SURAL` <chr> "ANORMAL"…
## $ `LATENCIA SURAL` <chr> "BILATERA…
## $ `VELOCIDAD DE NEUROCONDUCCION DE NERVIO PERONEO` <chr> "NORMAL",…
## $ `VELOCIDAD PERONEO` <chr> NA, "DERE…
## $ `VELOCIDAD DE NEUROCONDUCCION DE NERVIO TIBIAL ALTERADA` <chr> "NORMAL",…
## $ `VELOCIDAD TIBIAL` <chr> NA, "BILA…
## $ `RESPUESTA F` <chr> "NORMAL",…
## $ `NERVIO RF` <chr> NA, "BILA…
## $ `REFLEJO H` <chr> "ANORMAL"…
## $ `NERVIO RH` <chr> "TIBIAL D…
## $ `ELECTROMIOGRAFIA ACT ESPONTANEA, PRESENTO? Datos alterados` <chr> "PRESENTO…
## $ `RUIDO DE PLACA` <lgl> NA, NA, N…
## $ `ESPICULA DE PLACA` <lgl> NA, NA, N…
## $ `POTENCIAL DE FIBRILACION` <chr> NA, "L4, …
## $ `ONDA AGUDA POSITIVA` <chr> "L4, S1",…
## $ `DESCARGA MIOTONICA` <lgl> NA, NA, N…
## $ `DESCARGA REPETITIVA COMPLEJA` <lgl> NA, NA, N…
## $ `POTENCIAL DE FASCICULACIÓN` <chr> NA, NA, N…
## $ `DESCARGA MIOQUIMICA` <chr> NA, NA, N…
## $ `POTENCIAL DE CALAMBRE` <lgl> NA, NA, N…
## $ `DESCARGA NEUROMIOTONICA` <lgl> NA, NA, N…
## $ `TEMBLOR DE REPOSO` <lgl> NA, NA, N…
## $ `MIOTOMO AFECTADO` <chr> "L4, S1",…
## $ `MIOTOMO DERECHO` <chr> "L4, S1 D…
## $ `MIOTOMO IZQUIERDO` <chr> NA, "IZQ"…
## $ `REPORTE ANORMAL` <chr> "ANORMAL"…
## $ `REPORTE NORMAL` <chr> NA, NA, "…
## $ `RADICULOPATIA REPORTE` <chr> "ANORMAL"…
## $ RADICULOPATIA...52 <chr> "SI", "SI…
## $ MIOTOMO <chr> "L5 DEREC…df_status(dbdrailse)## variable q_zeros p_zeros
## 1 RADICULOPATIA...1 0 0
## 2 EDAD 0 0
## 3 RAZA 0 0
## 4 SEXO 0 0
## 5 DOLOR 0 0
## 6 TIPO DE DOLOR 0 0
## 7 IRRADIACIÓN 0 0
## 8 INTENSIDAD DEL DOLOR 0 0
## 9 SENSIBILIDAD 0 0
## 10 FUERZA 0 0
## 11 REFLEJOS DE LIBERACION PIRAMIDAL 0 0
## 12 REMS 0 0
## 13 REM ANORMAL 0 0
## 14 AMPLITUD MOTORA DE NERVIO PERONEO 0 0
## 15 AMPLITUD PERONEO 0 0
## 16 AMPLITUD MOTORA DE NERVIO TIBIAL 0 0
## 17 AMPLITUD TIBIAL 0 0
## 18 AMPLITUD SENSITIVA DE NERVIO SURAL ALTERADA 0 0
## 19 AMPLITUD SURAL 0 0
## 20 LATENCIA INICIAL DE NERVIO PERONEO ALTERADA 0 0
## 21 LATENCIA PERONEO 0 0
## 22 LATENCIA INICIAL DE NERVIO TIBIAL ALATERADA 0 0
## 23 LATENCIA TIBIAL 0 0
## 24 LATENCIA PICO DE NERVIO SURAL 0 0
## 25 LATENCIA SURAL 0 0
## 26 VELOCIDAD DE NEUROCONDUCCION DE NERVIO PERONEO 0 0
## 27 VELOCIDAD PERONEO 0 0
## 28 VELOCIDAD DE NEUROCONDUCCION DE NERVIO TIBIAL ALTERADA 0 0
## 29 VELOCIDAD TIBIAL 0 0
## 30 RESPUESTA F 0 0
## 31 NERVIO RF 0 0
## 32 REFLEJO H 0 0
## 33 NERVIO RH 0 0
## 34 ELECTROMIOGRAFIA ACT ESPONTANEA, PRESENTO? Datos alterados 0 0
## 35 RUIDO DE PLACA 0 0
## 36 ESPICULA DE PLACA 0 0
## 37 POTENCIAL DE FIBRILACION 0 0
## 38 ONDA AGUDA POSITIVA 0 0
## 39 DESCARGA MIOTONICA 0 0
## 40 DESCARGA REPETITIVA COMPLEJA 0 0
## 41 POTENCIAL DE FASCICULACIÓN 0 0
## 42 DESCARGA MIOQUIMICA 0 0
## 43 POTENCIAL DE CALAMBRE 0 0
## 44 DESCARGA NEUROMIOTONICA 0 0
## 45 TEMBLOR DE REPOSO 0 0
## 46 MIOTOMO AFECTADO 0 0
## 47 MIOTOMO DERECHO 0 0
## 48 MIOTOMO IZQUIERDO 0 0
## 49 REPORTE ANORMAL 0 0
## 50 REPORTE NORMAL 0 0
## 51 RADICULOPATIA REPORTE 0 0
## 52 RADICULOPATIA...52 0 0
## 53 MIOTOMO 0 0
## q_na p_na q_inf p_inf type unique
## 1 0 0.00 0 0 character 2
## 2 0 0.00 0 0 numeric 28
## 3 0 0.00 0 0 character 2
## 4 0 0.00 0 0 character 2
## 5 0 0.00 0 0 character 2
## 6 6 11.76 0 0 character 11
## 7 6 11.76 0 0 character 30
## 8 6 11.76 0 0 character 3
## 9 0 0.00 0 0 character 2
## 10 0 0.00 0 0 character 2
## 11 0 0.00 0 0 character 2
## 12 0 0.00 0 0 character 2
## 13 18 35.29 0 0 character 16
## 14 0 0.00 0 0 character 2
## 15 40 78.43 0 0 character 3
## 16 0 0.00 0 0 character 2
## 17 48 94.12 0 0 character 3
## 18 0 0.00 0 0 character 2
## 19 41 80.39 0 0 character 2
## 20 0 0.00 0 0 character 2
## 21 49 96.08 0 0 character 2
## 22 0 0.00 0 0 character 2
## 23 50 98.04 0 0 character 1
## 24 0 0.00 0 0 character 2
## 25 40 78.43 0 0 character 4
## 26 0 0.00 0 0 character 2
## 27 43 84.31 0 0 character 3
## 28 0 0.00 0 0 character 2
## 29 45 88.24 0 0 character 4
## 30 0 0.00 0 0 character 2
## 31 26 50.98 0 0 character 14
## 32 0 0.00 0 0 character 3
## 33 48 94.12 0 0 character 2
## 34 0 0.00 0 0 character 2
## 35 51 100.00 0 0 logical 0
## 36 51 100.00 0 0 logical 0
## 37 37 72.55 0 0 character 13
## 38 28 54.90 0 0 character 21
## 39 51 100.00 0 0 logical 0
## 40 51 100.00 0 0 logical 0
## 41 50 98.04 0 0 character 1
## 42 50 98.04 0 0 character 1
## 43 51 100.00 0 0 logical 0
## 44 51 100.00 0 0 logical 0
## 45 51 100.00 0 0 logical 0
## 46 30 58.82 0 0 character 12
## 47 34 66.67 0 0 character 12
## 48 40 78.43 0 0 character 8
## 49 35 68.63 0 0 character 1
## 50 16 31.37 0 0 character 1
## 51 0 0.00 0 0 character 2
## 52 0 0.00 0 0 character 2
## 53 34 66.67 0 0 character 17Frecuencias
#dbdrailse %>% select(RADICULOPATIA...1, DOLOR) %>% tbl_summary(by=RADICULOPATIA...1) %>% add_p()tabla para exploración de datos dividida entre pacientes que presentaron o no radiculopatía
str(dbdrailse)## tibble [51 × 53] (S3: tbl_df/tbl/data.frame)
## $ RADICULOPATIA...1 : chr [1:51] "SI" "SI" "NO" "NO" ...
## $ EDAD : num [1:51] 49 69 57 60 33 62 48 50 52 64 ...
## $ RAZA : chr [1:51] "MEX" "MEX" "MEX" "MEX" ...
## $ SEXO : chr [1:51] "F" "F" "F" "F" ...
## $ DOLOR : chr [1:51] "SI" "SI" "SI" "SI" ...
## $ TIPO DE DOLOR : chr [1:51] "ARDOROSO" "OPRESIVO" "OPRESIVO" "QUEMANTE" ...
## $ IRRADIACIÓN : chr [1:51] "AMBAS PIERNAS" "AMBOS MIEMBROS PELVICOS" "LUMBAR SIN IRRADIAR" "AMBAS PIERNAS" ...
## $ INTENSIDAD DEL DOLOR : chr [1:51] "SEVERO" "MODERADO" "LEVE" "LEVE" ...
## $ SENSIBILIDAD : chr [1:51] "ALTERADA" "NO ALTERADA" "ALTERADA" "ALTERADA" ...
## $ FUERZA : chr [1:51] "ALTERADA" "ALTERADA" "ALTERADA" "ALTERADA" ...
## $ REFLEJOS DE LIBERACION PIRAMIDAL : chr [1:51] "NO" "NO" "NO" "NO" ...
## $ REMS : chr [1:51] "ALTERADO" "ALTERADO" "NO ALTERADO" "ALTERADO" ...
## $ REM ANORMAL : chr [1:51] "PATELAR Y AQUILEO BILATERAL" "NO EVOCABLES BILATERAL" NA "PATELAR Y AUQILEO BILATERAL" ...
## $ AMPLITUD MOTORA DE NERVIO PERONEO : chr [1:51] "NORMAL" "NORMAL" "NORMAL" "NORMAL" ...
## $ AMPLITUD PERONEO : chr [1:51] NA NA NA NA ...
## $ AMPLITUD MOTORA DE NERVIO TIBIAL : chr [1:51] "NORMAL" "ANORMAL" "NORMAL" "NORMAL" ...
## $ AMPLITUD TIBIAL : chr [1:51] NA "BILATERAL" NA NA ...
## $ AMPLITUD SENSITIVA DE NERVIO SURAL ALTERADA : chr [1:51] "ANORMAL" "ANORMAL" "NORMAL" "NORMAL" ...
## $ AMPLITUD SURAL : chr [1:51] "BILATERAL" "BILATERAL" NA NA ...
## $ LATENCIA INICIAL DE NERVIO PERONEO ALTERADA : chr [1:51] "NORMAL" "NORMAL" "NORMAL" "NORMAL" ...
## $ LATENCIA PERONEO : chr [1:51] NA NA NA NA ...
## $ LATENCIA INICIAL DE NERVIO TIBIAL ALATERADA : chr [1:51] "NORMAL" "ANORMAL" "NORMAL" "NORMAL" ...
## $ LATENCIA TIBIAL : chr [1:51] NA "BILATERAL" NA NA ...
## $ LATENCIA PICO DE NERVIO SURAL : chr [1:51] "ANORMAL" "ANORMAL" "NORMAL" "NORMAL" ...
## $ LATENCIA SURAL : chr [1:51] "BILATERAL" "BILATERAL" NA NA ...
## $ VELOCIDAD DE NEUROCONDUCCION DE NERVIO PERONEO : chr [1:51] "NORMAL" "ANORMAL" "NORMAL" "NORMAL" ...
## $ VELOCIDAD PERONEO : chr [1:51] NA "DERECHO" NA NA ...
## $ VELOCIDAD DE NEUROCONDUCCION DE NERVIO TIBIAL ALTERADA : chr [1:51] "NORMAL" "ANORMAL" "NORMAL" "NORMAL" ...
## $ VELOCIDAD TIBIAL : chr [1:51] NA "BILATERAL" NA NA ...
## $ RESPUESTA F : chr [1:51] "NORMAL" "ANORMAL" "NORMAL" "ANORMAL" ...
## $ NERVIO RF : chr [1:51] NA "BILATERAL TIBIAL Y PERONEO" NA "PERONEO BIATERAL" ...
## $ REFLEJO H : chr [1:51] "ANORMAL" "ANORMAL" "ANORMAL" "NO SE REALIZO" ...
## $ NERVIO RH : chr [1:51] "TIBIAL DERECHO" "BILATERAL" "BILATERAL" NA ...
## $ ELECTROMIOGRAFIA ACT ESPONTANEA, PRESENTO? Datos alterados: chr [1:51] "PRESENTO" "PRESENTO" "NO PRESENTO" "PRESENTO" ...
## $ RUIDO DE PLACA : logi [1:51] NA NA NA NA NA NA ...
## $ ESPICULA DE PLACA : logi [1:51] NA NA NA NA NA NA ...
## $ POTENCIAL DE FIBRILACION : chr [1:51] NA "L4, S1 IZQ" NA NA ...
## $ ONDA AGUDA POSITIVA : chr [1:51] "L4, S1" "L4, S1 IZQ" NA "S1 IZQ" ...
## $ DESCARGA MIOTONICA : logi [1:51] NA NA NA NA NA NA ...
## $ DESCARGA REPETITIVA COMPLEJA : logi [1:51] NA NA NA NA NA NA ...
## $ POTENCIAL DE FASCICULACIÓN : chr [1:51] NA NA NA NA ...
## $ DESCARGA MIOQUIMICA : chr [1:51] NA NA NA NA ...
## $ POTENCIAL DE CALAMBRE : logi [1:51] NA NA NA NA NA NA ...
## $ DESCARGA NEUROMIOTONICA : logi [1:51] NA NA NA NA NA NA ...
## $ TEMBLOR DE REPOSO : logi [1:51] NA NA NA NA NA NA ...
## $ MIOTOMO AFECTADO : chr [1:51] "L4, S1" "L4, S1" NA "S1" ...
## $ MIOTOMO DERECHO : chr [1:51] "L4, S1 DERECHO" NA NA NA ...
## $ MIOTOMO IZQUIERDO : chr [1:51] NA "IZQ" NA "IZQ" ...
## $ REPORTE ANORMAL : chr [1:51] "ANORMAL" "ANORMAL" NA NA ...
## $ REPORTE NORMAL : chr [1:51] NA NA "NORMAL" "NORMAL" ...
## $ RADICULOPATIA REPORTE : chr [1:51] "ANORMAL" "ANORMAL" "NORMAL" "NORMAL" ...
## $ RADICULOPATIA...52 : chr [1:51] "SI" "SI" "NO" "NO" ...
## $ MIOTOMO : chr [1:51] "L5 DERECHO" "L4, L5, S1 IIZQUIERDO" NA NA ...dbdrailse %>% select(EDAD,RAZA,SEXO,DOLOR,`TIPO DE DOLOR`,IRRADIACIÓN,`INTENSIDAD DEL DOLOR`,RADICULOPATIA...1) %>% tbl_summary(by=RADICULOPATIA...1) %>% add_p() %>% add_overall()## Warning for variable 'EDAD':
## simpleWarning in wilcox.test.default(x = DATA[[1L]], y = DATA[[2L]], ...): cannot compute exact p-value with ties| Characteristic | Overall, N = 511 | NO, N = 351 | SI, N = 161 | p-value2 |
|---|---|---|---|---|
| EDAD | 60 (50, 66) | 57 (50, 62) | 68 (57, 72) | 0.027 |
| RAZA | >0.9 | |||
| MEX | 50 (98%) | 34 (97%) | 16 (100%) | |
| USA | 1 (2.0%) | 1 (2.9%) | 0 (0%) | |
| SEXO | 0.053 | |||
| F | 35 (69%) | 27 (77%) | 8 (50%) | |
| M | 16 (31%) | 8 (23%) | 8 (50%) | |
| DOLOR | 0.069 | |||
| NO | 6 (12%) | 2 (5.7%) | 4 (25%) | |
| SI | 45 (88%) | 33 (94%) | 12 (75%) | |
| TIPO DE DOLOR | 0.7 | |||
| ADORMECIMIENTO | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| ARDOROSO | 3 (6.7%) | 1 (3.0%) | 2 (17%) | |
| DESCARGA ELECTRICA | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| MIALGICO | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| OPRESIVO | 15 (33%) | 11 (33%) | 4 (33%) | |
| PUNZANTE | 17 (38%) | 12 (36%) | 5 (42%) | |
| PUNZATE | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| PUNZNATE | 2 (4.4%) | 2 (6.1%) | 0 (0%) | |
| QUEMANTE | 2 (4.4%) | 2 (6.1%) | 0 (0%) | |
| TIRON | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| TOQUE ELECTRICO | 1 (2.2%) | 0 (0%) | 1 (8.3%) | |
| Unknown | 6 | 2 | 4 | |
| IRRADIACIÓN | 0.2 | |||
| AMBAS PIERNAS | 2 (4.4%) | 1 (3.0%) | 1 (8.3%) | |
| AMBOS MIEMBROS PELVICOS | 1 (2.2%) | 0 (0%) | 1 (8.3%) | |
| CADERA IZQ | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| CADERA SIN IRRADIAR | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| CADERA, AMBAS PIERNAS | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| EXTRMEIDAD PELVICA DERECHA | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| GLUETO DERECHO | 1 (2.2%) | 0 (0%) | 1 (8.3%) | |
| GLUTEO | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| GLUTEO HACIA EXTREMIDAD INFERIOR IZQUIERDA | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| LUMBAR | 5 (11%) | 5 (15%) | 0 (0%) | |
| LUMBAR CON IRRADIACION PIERNA IZQ | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| LUMBAR HACIA AMBAS RODILLAS | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| LUMBAR HACIA GLUTEO IZQUIERDO | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| LUMBAR HACIA RODILLA IZQ | 1 (2.2%) | 0 (0%) | 1 (8.3%) | |
| LUMBAR SIN IRRADIAR | 3 (6.7%) | 2 (6.1%) | 1 (8.3%) | |
| LUMBAR Y GLUTEO DCHO | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| LUMBAR Y PIERNA DCHA | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| LUMBOSACRO | 1 (2.2%) | 0 (0%) | 1 (8.3%) | |
| LUMBOSACRO Y PIERNA DERECHA | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| MIEMBRO PELVICO IZQUIERDO | 3 (6.7%) | 1 (3.0%) | 2 (17%) | |
| MIEMBROS PELVICOS | 1 (2.2%) | 0 (0%) | 1 (8.3%) | |
| MUSLO IZQ | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| NO IRRADIA | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| PELVICO Y ESPALDA | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| PELVIS | 1 (2.2%) | 0 (0%) | 1 (8.3%) | |
| PIERNA DERECHA | 3 (6.7%) | 3 (9.1%) | 0 (0%) | |
| PIERNA IZQ | 3 (6.7%) | 3 (9.1%) | 0 (0%) | |
| PLANTAS DE LOS PIES | 1 (2.2%) | 0 (0%) | 1 (8.3%) | |
| SIN IRRADIACIÓN | 3 (6.7%) | 2 (6.1%) | 1 (8.3%) | |
| SIN IRRADIACIÓN EN LUMBAR | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| Unknown | 6 | 2 | 4 | |
| INTENSIDAD DEL DOLOR | 0.037 | |||
| LEVE | 28 (62%) | 23 (70%) | 5 (42%) | |
| MODERADO | 15 (33%) | 10 (30%) | 5 (42%) | |
| SEVERO | 2 (4.4%) | 0 (0%) | 2 (17%) | |
| Unknown | 6 | 2 | 4 | |
| 1 Median (IQR); n (%) | ||||
| 2 Wilcoxon rank sum test; Fisher's exact test; Pearson's Chi-squared test | ||||
1. Describir las características del dolor referido por los pacientes.
#DOlor en pacientes con radiculopatía, relación sexo, edad y caracteristicas en pacientes con radiculopatía
#DOlor en pacientes con radiculopatía, relación sexo, edad y caracteristicas en pacientes con radiculopatía
dbdolorradiculo<-dbdrailse %>% select(EDAD,RAZA,SEXO,DOLOR,`TIPO DE DOLOR`,IRRADIACIÓN,`INTENSIDAD DEL DOLOR`,RADICULOPATIA...1)
#dolor Solo con radiculopatía
dbdolorradiculopat <- dbdolorradiculo %>% filter(RADICULOPATIA...1 == "SI")
dolorrad <-dbdolorradiculopat %>%
group_by(DOLOR) %>%
summarise(counts = n()) %>%
mutate(prop = round(counts*100/sum(counts), 1))
ggplot(dolorrad, aes(x = DOLOR, y = prop, fill= DOLOR)) +
geom_bar(stat = "identity") +
geom_text(aes(label = prop), vjust = -0.2, fontface=2, size= 6) +
theme_pubclean() + ylab("%") + xlab ("Dolor en pacientes con radiculopatía")+
theme(text = element_text(size = 16, face="bold"), axis.text = element_text(size = 16, face="bold"),
legend.text = element_text(size = 12),)+scale_fill_brewer(palette="Set3")+
theme(axis.text.x = element_text(angle = 45, hjust = 1))+theme(legend.position = "none")
dolor <- dbdolorradiculopat %>%
count(DOLOR) %>%
mutate(
perc = round(proportions(n) * 100, 1),
res = str_c(n, "(", perc, "%)"),
`Intesidad del Dolor` = as.factor(DOLOR)
)
dolor <- dolor %>% drop_na()
ggplot(dolor, aes(DOLOR, n, fill = DOLOR)) +
geom_col() +
geom_text(aes(label = res), vjust = -0.5,fontface=2, size= 6) +
theme_pubclean() + ylab("conteo") + xlab ("Prevalencia de dolor en pacientes con radiculopatía")+
theme(text = element_text(size = 16, face="bold"), axis.text = element_text(size = 16, face="bold"),
legend.text = element_text(size = 12),)+scale_fill_brewer(palette="Set3")+
theme(axis.text.x = element_text(angle = 0, hjust = 0.5))+theme(legend.position = "none")
##Tipo de Dolor en radiculopatía
#usando el paquete EDA
tipodolor <- dbdolorradiculopat %>%
count(`TIPO DE DOLOR`) %>%
mutate(
perc = round(proportions(n) * 100, 1),
res = str_c(n, "(", perc, "%)"),
`Intesidad del Dolor` = as.factor(`TIPO DE DOLOR`)
)
tipodolor <- tipodolor %>% drop_na()
ggplot(tipodolor, aes(`TIPO DE DOLOR`, n, fill = `TIPO DE DOLOR`)) +
geom_col() +
geom_text(aes(label = res), vjust = -0.5,fontface=2, size= 6) +
theme_pubclean() + ylab("conteo") + xlab ("Tipo de dolor en pacientes con radiculopatía")+
theme(text = element_text(size = 16, face="bold"), axis.text = element_text(size = 16, face="bold"),
legend.text = element_text(size = 12),)+scale_fill_brewer(palette="Set3")+
theme(axis.text.x = element_text(angle = 0, hjust = 0.5))+theme(legend.position = "none")
Irradiación del dolor
irradiadolor <- dbdolorradiculopat %>%
count(IRRADIACIÓN) %>%
mutate(
perc = round(proportions(n) * 100, 1),
res = str_c(n, "(", perc, "%)"),
`Intesidad del Dolor` = as.factor(IRRADIACIÓN)
)
irradiadolor <- irradiadolor %>% drop_na()
ggplot(irradiadolor, aes(IRRADIACIÓN, n, fill = IRRADIACIÓN)) +
geom_col() +
geom_text(aes(label = res), vjust = 0.5,hjust = 0.01,fontface=2, size= 6) +
theme_pubclean() + ylab("conteo") + xlab ("Tipo de dolor en pacientes con radiculopatía")+
theme(text = element_text(size = 16, face="bold"), axis.text = element_text(size = 16, face="bold"),
legend.text = element_text(size = 12),)+scale_fill_brewer(palette="Set3")+
theme(axis.text.x = element_text(angle = 45, hjust = 0.5))+theme(legend.position = "none")+coord_flip()
##Intensidad del dolor
dbdolorradiculopat<-dbdolorradiculopat %>% mutate(`INTENSIDAD DEL DOLOR` = factor(`INTENSIDAD DEL DOLOR`, levels=c("LEVE", "MODERADO","SEVERO")))
dolorrad <-dbdolorradiculopat %>%
group_by(DOLOR) %>%
summarise(counts = n()) %>%
mutate(prop = round(counts*100/sum(counts), 1))
ggplot(dolorrad, aes(x = DOLOR, y = prop, fill= DOLOR)) +
geom_bar(stat = "identity") +
geom_text(aes(label = prop), vjust = -0.2, fontface=2, size= 6) +
theme_pubclean() + ylab("%") + xlab ("Dolor en pacientes con radiculopatía")+
theme(text = element_text(size = 16, face="bold"), axis.text = element_text(size = 16, face="bold"),
legend.text = element_text(size = 12),)+scale_fill_brewer(palette="Set3")+
theme(axis.text.x = element_text(angle = 45, hjust = 1))+theme(legend.position = "none")
dolorrad## # A tibble: 2 × 3
## DOLOR counts prop
## <chr> <int> <dbl>
## 1 NO 4 25
## 2 SI 12 75fg <- dbdolorradiculopat %>%
count(`INTENSIDAD DEL DOLOR`) %>%
mutate(
perc = round(proportions(n) * 100, 1),
res = str_c(n, "(", perc, "%)"),
`Intesidad del Dolor` = as.factor(`INTENSIDAD DEL DOLOR`)
)
fg <- fg %>% drop_na()
ggplot(fg, aes(`Intesidad del Dolor`, n, fill = `Intesidad del Dolor`)) +
geom_col() +
geom_text(aes(label = res), vjust = -0.5,fontface=2, size= 6) +
theme_pubclean() + ylab("conteo") + xlab ("Dolor en pacientes con radiculopatía")+
theme(text = element_text(size = 16, face="bold"), axis.text = element_text(size = 16, face="bold"),
legend.text = element_text(size = 12),)+scale_fill_brewer(palette="Set3")+
theme(axis.text.x = element_text(angle = 0, hjust = 0.5))+theme(legend.position = "none")
2.Describir la frecuencia con la que se presentan las alteraciones de los reflejos de estiramiento muscular.
dbdrailse %>% select(FUERZA,`REFLEJOS DE LIBERACION PIRAMIDAL`, `REMS`, `REM ANORMAL`,RADICULOPATIA...1) %>% tbl_summary(by=RADICULOPATIA...1) %>% add_overall() %>% add_p()## Warning: The `fmt_missing()` function is deprecated and will soon be removed
## * Use the `sub_missing()` function instead| Characteristic | Overall, N = 511 | NO, N = 351 | SI, N = 161 | p-value2 |
|---|---|---|---|---|
| FUERZA | >0.9 | |||
| ALTERADA | 40 (78%) | 27 (77%) | 13 (81%) | |
| NO ALTERADA | 11 (22%) | 8 (23%) | 3 (19%) | |
| REFLEJOS DE LIBERACION PIRAMIDAL | >0.9 | |||
| NO | 50 (98%) | 34 (97%) | 16 (100%) | |
| STRANSKY BILATERAL | 1 (2.0%) | 1 (2.9%) | 0 (0%) | |
| REMS | 0.065 | |||
| ALTERADO | 32 (63%) | 19 (54%) | 13 (81%) | |
| NO ALTERADO | 19 (37%) | 16 (46%) | 3 (19%) | |
| REM ANORMAL | 0.7 | |||
| AQUILEO BILATERAL | 14 (42%) | 9 (45%) | 5 (38%) | |
| AQUILEO BILATERAL, PATELAR IZQ | 1 (3.0%) | 1 (5.0%) | 0 (0%) | |
| AQUILEO DERECHO | 1 (3.0%) | 0 (0%) | 1 (7.7%) | |
| AQUILEO IZQUIERDO | 1 (3.0%) | 1 (5.0%) | 0 (0%) | |
| AQUILEO Y PATELAR BILATERAL | 1 (3.0%) | 1 (5.0%) | 0 (0%) | |
| NO EVOCABLES BILATERAL | 1 (3.0%) | 0 (0%) | 1 (7.7%) | |
| PATELAR BILATERAL | 1 (3.0%) | 0 (0%) | 1 (7.7%) | |
| PATELAR BILAYERAL, AQUILEO IZQ | 1 (3.0%) | 1 (5.0%) | 0 (0%) | |
| PATELAR DCHO | 2 (6.1%) | 2 (10%) | 0 (0%) | |
| PATELAR DECHO, AUILEO BILATERAL | 1 (3.0%) | 0 (0%) | 1 (7.7%) | |
| PATELAR DERECHO | 2 (6.1%) | 1 (5.0%) | 1 (7.7%) | |
| PATELAR IZQ, AQUILEO IZQ | 1 (3.0%) | 1 (5.0%) | 0 (0%) | |
| PATELAR IZQUIERDO, AQUILEO IZQUIERDO | 1 (3.0%) | 1 (5.0%) | 0 (0%) | |
| PATELAR Y AQUILEO BILATERAL | 3 (9.1%) | 1 (5.0%) | 2 (15%) | |
| PATELAR Y AQUILEO DERECHOS | 1 (3.0%) | 0 (0%) | 1 (7.7%) | |
| PATELAR Y AUQILEO BILATERAL | 1 (3.0%) | 1 (5.0%) | 0 (0%) | |
| Unknown | 18 | 15 | 3 | |
| 1 n (%) | ||||
| 2 Fisher's exact test; Pearson's Chi-squared test | ||||
Describir la frecuencia de alteraciones en la respuesta F Y .
df<- dbdrailse %>% select(`RESPUESTA F`)
df <- df %>%
group_by(`RESPUESTA F`) %>%
summarise(counts = n())
df %>% gt()| RESPUESTA F | counts |
|---|---|
| ANORMAL | 25 |
| NORMAL | 26 |
df <- df %>%
arrange(desc(`RESPUESTA F`)) %>%
mutate(prop = round(counts*100/sum(counts), 1),
res = str_c(counts, "(", prop, "%)"),
lab.ypos = cumsum(prop) - 0.5*prop)
head(df, 4)## # A tibble: 2 × 5
## `RESPUESTA F` counts prop res lab.ypos
## <chr> <int> <dbl> <chr> <dbl>
## 1 NORMAL 26 51 26(51%) 25.5
## 2 ANORMAL 25 49 25(49%) 75.5ggplot(df , aes(x = "", y = prop, fill = `RESPUESTA F`)) +
geom_bar(width = 1, stat = "identity", color = "white") +
geom_text(aes(y = lab.ypos, label = res), color = "black",
fontface=2, size= 6)+
coord_polar("y", start = 0)+
ggpubr::fill_palette("Set2")+
theme_void() + labs(fill = "Respuesta F") +
theme(text = element_text(size = 12, face="bold"))
reflejo H.
df<- dbdrailse %>% select(`REFLEJO H`)
df <- df %>%
group_by(`REFLEJO H`) %>%
summarise(counts = n())
df %>% gt()| REFLEJO H | counts |
|---|---|
| ANORMAL | 3 |
| NO SE REALIZO | 7 |
| NORMAL | 41 |
df <- df %>%
arrange(desc(`REFLEJO H`)) %>%
mutate(prop = round(counts*100/sum(counts), 1),
res = str_c(counts, "(", prop, "%)"),
lab.ypos = cumsum(prop) - 0.5*prop)
head(df, 4)## # A tibble: 3 × 5
## `REFLEJO H` counts prop res lab.ypos
## <chr> <int> <dbl> <chr> <dbl>
## 1 NORMAL 41 80.4 41(80.4%) 40.2
## 2 NO SE REALIZO 7 13.7 7(13.7%) 87.3
## 3 ANORMAL 3 5.9 3(5.9%) 97.0ggplot(df , aes(x = "", y = prop, fill = `REFLEJO H`)) +
geom_bar(width = 1, stat = "identity", color = "white") +
geom_text(aes(y = lab.ypos, label = res), color = "black",
fontface=2, size= 6)+
coord_polar("y", start = 0)+
ggpubr::fill_palette("Set2")+
theme_void() + labs(fill = "Reflejo H") +
theme(text = element_text(size = 12, face="bold"))
4. Describir las alteraciones en latencias y amplitudes nerviosas, en la neuroconducción, motora y sensorial.
dbdrailselter<- dbdrailse
dbdrailselter %>% tbl_summary(by=RADICULOPATIA...1) %>% add_p() %>% add_overall()## Warning for variable 'EDAD':
## simpleWarning in wilcox.test.default(x = DATA[[1L]], y = DATA[[2L]], ...): cannot compute exact p-value with ties## There was an error in 'add_p()/add_difference()' for variable 'LATENCIA TIBIAL', p-value omitted:
## Error in stats::fisher.test(c(NA, "BILATERAL", NA, NA, NA, NA, NA, NA, : 'x' and 'y' must have at least 2 levels## There was an error in 'add_p()/add_difference()' for variable 'RUIDO DE PLACA', p-value omitted:
## Error in stats::chisq.test(x = c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, : 'x' and 'y' must have at least 2 levels## There was an error in 'add_p()/add_difference()' for variable 'ESPICULA DE PLACA', p-value omitted:
## Error in stats::chisq.test(x = c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, : 'x' and 'y' must have at least 2 levels## There was an error in 'add_p()/add_difference()' for variable 'DESCARGA MIOTONICA', p-value omitted:
## Error in stats::chisq.test(x = c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, : 'x' and 'y' must have at least 2 levels## There was an error in 'add_p()/add_difference()' for variable 'DESCARGA REPETITIVA COMPLEJA', p-value omitted:
## Error in stats::chisq.test(x = c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, : 'x' and 'y' must have at least 2 levels## There was an error in 'add_p()/add_difference()' for variable 'POTENCIAL DE FASCICULACIÓN', p-value omitted:
## Error in stats::fisher.test(c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, : 'x' and 'y' must have at least 2 levels## There was an error in 'add_p()/add_difference()' for variable 'DESCARGA MIOQUIMICA', p-value omitted:
## Error in stats::fisher.test(c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, : 'x' and 'y' must have at least 2 levels## There was an error in 'add_p()/add_difference()' for variable 'POTENCIAL DE CALAMBRE', p-value omitted:
## Error in stats::chisq.test(x = c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, : 'x' and 'y' must have at least 2 levels## There was an error in 'add_p()/add_difference()' for variable 'DESCARGA NEUROMIOTONICA', p-value omitted:
## Error in stats::chisq.test(x = c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, : 'x' and 'y' must have at least 2 levels## There was an error in 'add_p()/add_difference()' for variable 'TEMBLOR DE REPOSO', p-value omitted:
## Error in stats::chisq.test(x = c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, : 'x' and 'y' must have at least 2 levels## There was an error in 'add_p()/add_difference()' for variable 'REPORTE ANORMAL', p-value omitted:
## Error in stats::chisq.test(x = c("ANORMAL", "ANORMAL", NA, NA, "ANORMAL", : 'x' and 'y' must have at least 2 levels## There was an error in 'add_p()/add_difference()' for variable 'REPORTE NORMAL', p-value omitted:
## Error in stats::chisq.test(x = c(NA, NA, "NORMAL", "NORMAL", NA, "NORMAL", : 'x' and 'y' must have at least 2 levels## Warning: The `fmt_missing()` function is deprecated and will soon be removed
## * Use the `sub_missing()` function instead| Characteristic | Overall, N = 511 | NO, N = 351 | SI, N = 161 | p-value2 |
|---|---|---|---|---|
| EDAD | 60 (50, 66) | 57 (50, 62) | 68 (57, 72) | 0.027 |
| RAZA | >0.9 | |||
| MEX | 50 (98%) | 34 (97%) | 16 (100%) | |
| USA | 1 (2.0%) | 1 (2.9%) | 0 (0%) | |
| SEXO | 0.053 | |||
| F | 35 (69%) | 27 (77%) | 8 (50%) | |
| M | 16 (31%) | 8 (23%) | 8 (50%) | |
| DOLOR | 0.069 | |||
| NO | 6 (12%) | 2 (5.7%) | 4 (25%) | |
| SI | 45 (88%) | 33 (94%) | 12 (75%) | |
| TIPO DE DOLOR | 0.7 | |||
| ADORMECIMIENTO | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| ARDOROSO | 3 (6.7%) | 1 (3.0%) | 2 (17%) | |
| DESCARGA ELECTRICA | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| MIALGICO | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| OPRESIVO | 15 (33%) | 11 (33%) | 4 (33%) | |
| PUNZANTE | 17 (38%) | 12 (36%) | 5 (42%) | |
| PUNZATE | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| PUNZNATE | 2 (4.4%) | 2 (6.1%) | 0 (0%) | |
| QUEMANTE | 2 (4.4%) | 2 (6.1%) | 0 (0%) | |
| TIRON | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| TOQUE ELECTRICO | 1 (2.2%) | 0 (0%) | 1 (8.3%) | |
| Unknown | 6 | 2 | 4 | |
| IRRADIACIÓN | 0.2 | |||
| AMBAS PIERNAS | 2 (4.4%) | 1 (3.0%) | 1 (8.3%) | |
| AMBOS MIEMBROS PELVICOS | 1 (2.2%) | 0 (0%) | 1 (8.3%) | |
| CADERA IZQ | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| CADERA SIN IRRADIAR | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| CADERA, AMBAS PIERNAS | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| EXTRMEIDAD PELVICA DERECHA | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| GLUETO DERECHO | 1 (2.2%) | 0 (0%) | 1 (8.3%) | |
| GLUTEO | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| GLUTEO HACIA EXTREMIDAD INFERIOR IZQUIERDA | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| LUMBAR | 5 (11%) | 5 (15%) | 0 (0%) | |
| LUMBAR CON IRRADIACION PIERNA IZQ | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| LUMBAR HACIA AMBAS RODILLAS | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| LUMBAR HACIA GLUTEO IZQUIERDO | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| LUMBAR HACIA RODILLA IZQ | 1 (2.2%) | 0 (0%) | 1 (8.3%) | |
| LUMBAR SIN IRRADIAR | 3 (6.7%) | 2 (6.1%) | 1 (8.3%) | |
| LUMBAR Y GLUTEO DCHO | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| LUMBAR Y PIERNA DCHA | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| LUMBOSACRO | 1 (2.2%) | 0 (0%) | 1 (8.3%) | |
| LUMBOSACRO Y PIERNA DERECHA | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| MIEMBRO PELVICO IZQUIERDO | 3 (6.7%) | 1 (3.0%) | 2 (17%) | |
| MIEMBROS PELVICOS | 1 (2.2%) | 0 (0%) | 1 (8.3%) | |
| MUSLO IZQ | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| NO IRRADIA | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| PELVICO Y ESPALDA | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| PELVIS | 1 (2.2%) | 0 (0%) | 1 (8.3%) | |
| PIERNA DERECHA | 3 (6.7%) | 3 (9.1%) | 0 (0%) | |
| PIERNA IZQ | 3 (6.7%) | 3 (9.1%) | 0 (0%) | |
| PLANTAS DE LOS PIES | 1 (2.2%) | 0 (0%) | 1 (8.3%) | |
| SIN IRRADIACIÓN | 3 (6.7%) | 2 (6.1%) | 1 (8.3%) | |
| SIN IRRADIACIÓN EN LUMBAR | 1 (2.2%) | 1 (3.0%) | 0 (0%) | |
| Unknown | 6 | 2 | 4 | |
| INTENSIDAD DEL DOLOR | 0.037 | |||
| LEVE | 28 (62%) | 23 (70%) | 5 (42%) | |
| MODERADO | 15 (33%) | 10 (30%) | 5 (42%) | |
| SEVERO | 2 (4.4%) | 0 (0%) | 2 (17%) | |
| Unknown | 6 | 2 | 4 | |
| SENSIBILIDAD | >0.9 | |||
| ALTERADA | 25 (49%) | 17 (49%) | 8 (50%) | |
| NO ALTERADA | 26 (51%) | 18 (51%) | 8 (50%) | |
| FUERZA | >0.9 | |||
| ALTERADA | 40 (78%) | 27 (77%) | 13 (81%) | |
| NO ALTERADA | 11 (22%) | 8 (23%) | 3 (19%) | |
| REFLEJOS DE LIBERACION PIRAMIDAL | >0.9 | |||
| NO | 50 (98%) | 34 (97%) | 16 (100%) | |
| STRANSKY BILATERAL | 1 (2.0%) | 1 (2.9%) | 0 (0%) | |
| REMS | 0.065 | |||
| ALTERADO | 32 (63%) | 19 (54%) | 13 (81%) | |
| NO ALTERADO | 19 (37%) | 16 (46%) | 3 (19%) | |
| REM ANORMAL | 0.7 | |||
| AQUILEO BILATERAL | 14 (42%) | 9 (45%) | 5 (38%) | |
| AQUILEO BILATERAL, PATELAR IZQ | 1 (3.0%) | 1 (5.0%) | 0 (0%) | |
| AQUILEO DERECHO | 1 (3.0%) | 0 (0%) | 1 (7.7%) | |
| AQUILEO IZQUIERDO | 1 (3.0%) | 1 (5.0%) | 0 (0%) | |
| AQUILEO Y PATELAR BILATERAL | 1 (3.0%) | 1 (5.0%) | 0 (0%) | |
| NO EVOCABLES BILATERAL | 1 (3.0%) | 0 (0%) | 1 (7.7%) | |
| PATELAR BILATERAL | 1 (3.0%) | 0 (0%) | 1 (7.7%) | |
| PATELAR BILAYERAL, AQUILEO IZQ | 1 (3.0%) | 1 (5.0%) | 0 (0%) | |
| PATELAR DCHO | 2 (6.1%) | 2 (10%) | 0 (0%) | |
| PATELAR DECHO, AUILEO BILATERAL | 1 (3.0%) | 0 (0%) | 1 (7.7%) | |
| PATELAR DERECHO | 2 (6.1%) | 1 (5.0%) | 1 (7.7%) | |
| PATELAR IZQ, AQUILEO IZQ | 1 (3.0%) | 1 (5.0%) | 0 (0%) | |
| PATELAR IZQUIERDO, AQUILEO IZQUIERDO | 1 (3.0%) | 1 (5.0%) | 0 (0%) | |
| PATELAR Y AQUILEO BILATERAL | 3 (9.1%) | 1 (5.0%) | 2 (15%) | |
| PATELAR Y AQUILEO DERECHOS | 1 (3.0%) | 0 (0%) | 1 (7.7%) | |
| PATELAR Y AUQILEO BILATERAL | 1 (3.0%) | 1 (5.0%) | 0 (0%) | |
| Unknown | 18 | 15 | 3 | |
| AMPLITUD MOTORA DE NERVIO PERONEO | 0.078 | |||
| ANORMAL | 11 (22%) | 5 (14%) | 6 (38%) | |
| NORMAL | 40 (78%) | 30 (86%) | 10 (62%) | |
| AMPLITUD PERONEO | >0.9 | |||
| BILATERAL | 2 (18%) | 1 (20%) | 1 (17%) | |
| DERECHO | 6 (55%) | 3 (60%) | 3 (50%) | |
| IZQUIERDO | 3 (27%) | 1 (20%) | 2 (33%) | |
| Unknown | 40 | 30 | 10 | |
| AMPLITUD MOTORA DE NERVIO TIBIAL | 0.2 | |||
| ANORMAL | 3 (5.9%) | 1 (2.9%) | 2 (12%) | |
| NORMAL | 48 (94%) | 34 (97%) | 14 (88%) | |
| AMPLITUD TIBIAL | >0.9 | |||
| BILATERAL | 1 (33%) | 0 (0%) | 1 (50%) | |
| DERECHO | 1 (33%) | 1 (100%) | 0 (0%) | |
| IZQUIERDO | 1 (33%) | 0 (0%) | 1 (50%) | |
| Unknown | 48 | 34 | 14 | |
| AMPLITUD SENSITIVA DE NERVIO SURAL ALTERADA | 0.006 | |||
| ANORMAL | 10 (20%) | 3 (8.6%) | 7 (44%) | |
| NORMAL | 41 (80%) | 32 (91%) | 9 (56%) | |
| AMPLITUD SURAL | >0.9 | |||
| BILATERAL | 9 (90%) | 3 (100%) | 6 (86%) | |
| DERECHO | 1 (10%) | 0 (0%) | 1 (14%) | |
| Unknown | 41 | 32 | 9 | |
| LATENCIA INICIAL DE NERVIO PERONEO ALTERADA | 0.094 | |||
| ANORMAL | 2 (3.9%) | 0 (0%) | 2 (12%) | |
| NORMAL | 49 (96%) | 35 (100%) | 14 (88%) | |
| LATENCIA PERONEO | >0.9 | |||
| BILATERAL | 1 (50%) | 0 (NA%) | 1 (50%) | |
| DERECHO | 1 (50%) | 0 (NA%) | 1 (50%) | |
| Unknown | 49 | 35 | 14 | |
| LATENCIA INICIAL DE NERVIO TIBIAL ALATERADA | 0.3 | |||
| ANORMAL | 1 (2.0%) | 0 (0%) | 1 (6.2%) | |
| NORMAL | 50 (98%) | 35 (100%) | 15 (94%) | |
| LATENCIA TIBIAL | ||||
| BILATERAL | 1 (100%) | 0 (NA%) | 1 (100%) | |
| Unknown | 50 | 35 | 15 | |
| LATENCIA PICO DE NERVIO SURAL | 0.002 | |||
| ANORMAL | 11 (22%) | 3 (8.6%) | 8 (50%) | |
| NORMAL | 40 (78%) | 32 (91%) | 8 (50%) | |
| LATENCIA SURAL | 0.7 | |||
| BILATERAL | 8 (73%) | 2 (67%) | 6 (75%) | |
| DCHO | 1 (9.1%) | 0 (0%) | 1 (12%) | |
| DERECHO | 1 (9.1%) | 1 (33%) | 0 (0%) | |
| IZQUIERDO | 1 (9.1%) | 0 (0%) | 1 (12%) | |
| Unknown | 40 | 32 | 8 | |
| VELOCIDAD DE NEUROCONDUCCION DE NERVIO PERONEO | 0.2 | |||
| ANORMAL | 8 (16%) | 4 (11%) | 4 (25%) | |
| NORMAL | 43 (84%) | 31 (89%) | 12 (75%) | |
| VELOCIDAD PERONEO | >0.9 | |||
| DCHO | 1 (12%) | 1 (25%) | 0 (0%) | |
| DERECHO | 5 (62%) | 2 (50%) | 3 (75%) | |
| IZQUIERDO | 2 (25%) | 1 (25%) | 1 (25%) | |
| Unknown | 43 | 31 | 12 | |
| VELOCIDAD DE NEUROCONDUCCION DE NERVIO TIBIAL ALTERADA | 0.4 | |||
| ANORMAL | 6 (12%) | 3 (8.6%) | 3 (19%) | |
| NORMAL | 45 (88%) | 32 (91%) | 13 (81%) | |
| VELOCIDAD TIBIAL | 0.6 | |||
| BILATERAL | 2 (33%) | 0 (0%) | 2 (67%) | |
| DCHO | 1 (17%) | 1 (33%) | 0 (0%) | |
| DERECHO | 1 (17%) | 1 (33%) | 0 (0%) | |
| IZQUIERDO | 2 (33%) | 1 (33%) | 1 (33%) | |
| Unknown | 45 | 32 | 13 | |
| RESPUESTA F | 0.012 | |||
| ANORMAL | 25 (49%) | 13 (37%) | 12 (75%) | |
| NORMAL | 26 (51%) | 22 (63%) | 4 (25%) | |
| NERVIO RF | >0.9 | |||
| BILATERAL TIBIAL Y PERONEO | 1 (4.0%) | 0 (0%) | 1 (8.3%) | |
| ERONEO DERECHO | 1 (4.0%) | 0 (0%) | 1 (8.3%) | |
| PERONEO BIATERAL | 1 (4.0%) | 1 (7.7%) | 0 (0%) | |
| PERONEO BILATERAL | 4 (16%) | 2 (15%) | 2 (17%) | |
| PERONEO BILATERAL, TIBIAL IZQ | 1 (4.0%) | 0 (0%) | 1 (8.3%) | |
| PERONEO DCHO | 2 (8.0%) | 1 (7.7%) | 1 (8.3%) | |
| PERONEO DERECHO | 5 (20%) | 3 (23%) | 2 (17%) | |
| PERONEO IZQUIERDO | 3 (12%) | 2 (15%) | 1 (8.3%) | |
| PERONEO Y TIBIAL BILATERAL | 1 (4.0%) | 0 (0%) | 1 (8.3%) | |
| PERONEO Y TIBIAL DERECHO | 1 (4.0%) | 0 (0%) | 1 (8.3%) | |
| PERONEO Y TIBIAL DERECHO, TIBIAL IZQ | 1 (4.0%) | 1 (7.7%) | 0 (0%) | |
| PERONEOS BILATERAL | 1 (4.0%) | 1 (7.7%) | 0 (0%) | |
| TIBIAL BILATERAL | 1 (4.0%) | 1 (7.7%) | 0 (0%) | |
| TIBIAL DERECHO | 2 (8.0%) | 1 (7.7%) | 1 (8.3%) | |
| Unknown | 26 | 22 | 4 | |
| REFLEJO H | 0.4 | |||
| ANORMAL | 3 (5.9%) | 1 (2.9%) | 2 (12%) | |
| NO SE REALIZO | 7 (14%) | 5 (14%) | 2 (12%) | |
| NORMAL | 41 (80%) | 29 (83%) | 12 (75%) | |
| NERVIO RH | >0.9 | |||
| BILATERAL | 2 (67%) | 1 (100%) | 1 (50%) | |
| TIBIAL DERECHO | 1 (33%) | 0 (0%) | 1 (50%) | |
| Unknown | 48 | 34 | 14 | |
| ELECTROMIOGRAFIA ACT ESPONTANEA, PRESENTO? Datos alterados | <0.001 | |||
| NO PRESENTO | 28 (55%) | 28 (80%) | 0 (0%) | |
| PRESENTO | 23 (45%) | 7 (20%) | 16 (100%) | |
| RUIDO DE PLACA | 0 (NA%) | 0 (NA%) | 0 (NA%) | |
| Unknown | 51 | 35 | 16 | |
| ESPICULA DE PLACA | 0 (NA%) | 0 (NA%) | 0 (NA%) | |
| Unknown | 51 | 35 | 16 | |
| POTENCIAL DE FIBRILACION | >0.9 | |||
| L1, S1 DERECHO | 1 (7.1%) | 0 (0%) | 1 (8.3%) | |
| L3 IZQ, S1 DCHO | 1 (7.1%) | 0 (0%) | 1 (8.3%) | |
| L3, L4 PARAVERTEBRAL | 1 (7.1%) | 0 (0%) | 1 (8.3%) | |
| L4 | 2 (14%) | 1 (50%) | 1 (8.3%) | |
| L4 DCHO | 1 (7.1%) | 0 (0%) | 1 (8.3%) | |
| L4 IZQ | 1 (7.1%) | 0 (0%) | 1 (8.3%) | |
| L4 Y L5 DERECHO, S1 IZQUIERDO | 1 (7.1%) | 0 (0%) | 1 (8.3%) | |
| L4 Y S1 IZQUIERDO, L5 DERECHO | 1 (7.1%) | 0 (0%) | 1 (8.3%) | |
| L4, L5 DERECHO | 1 (7.1%) | 0 (0%) | 1 (8.3%) | |
| L4, S1 IZQ | 1 (7.1%) | 0 (0%) | 1 (8.3%) | |
| L5 PARAVERTEBRAL IZQ | 1 (7.1%) | 0 (0%) | 1 (8.3%) | |
| S1 IZQ, L4DCHO | 1 (7.1%) | 1 (50%) | 0 (0%) | |
| S1, L5 DCHO, L5, S1 IZQ | 1 (7.1%) | 0 (0%) | 1 (8.3%) | |
| Unknown | 37 | 33 | 4 | |
| ONDA AGUDA POSITIVA | >0.9 | |||
| L2, L3, L5, S1 DERECHO Y T12 Y L1 IZQ | 1 (4.3%) | 0 (0%) | 1 (6.2%) | |
| L3 PARAVERTEBRAL | 1 (4.3%) | 0 (0%) | 1 (6.2%) | |
| L3, L4, S1 IZQ | 1 (4.3%) | 0 (0%) | 1 (6.2%) | |
| L4 | 2 (8.7%) | 1 (14%) | 1 (6.2%) | |
| L4 IZQ, L5 BILATERAL | 1 (4.3%) | 0 (0%) | 1 (6.2%) | |
| L4 IZQUIERDO | 1 (4.3%) | 0 (0%) | 1 (6.2%) | |
| L4, L5 DCHO | 1 (4.3%) | 0 (0%) | 1 (6.2%) | |
| L4, L5 DCHOS | 1 (4.3%) | 1 (14%) | 0 (0%) | |
| L4, L5 IZQUIERDO | 1 (4.3%) | 0 (0%) | 1 (6.2%) | |
| L4, S1 | 1 (4.3%) | 0 (0%) | 1 (6.2%) | |
| L4, S1 IZQ | 1 (4.3%) | 0 (0%) | 1 (6.2%) | |
| L5 DERECHO, L4 Y S1 IZQUIERDO | 1 (4.3%) | 0 (0%) | 1 (6.2%) | |
| L5 IZQ | 1 (4.3%) | 0 (0%) | 1 (6.2%) | |
| L5 PARAVERTEBRAL DERECHO | 1 (4.3%) | 1 (14%) | 0 (0%) | |
| L5, S1 BILATERAL, L4 IZQ, PARAVERTEBRAL L5 BILATERAL, PARA VERTEBRAL L4 IZQ | 1 (4.3%) | 0 (0%) | 1 (6.2%) | |
| L5, S1 DERECHO | 1 (4.3%) | 0 (0%) | 1 (6.2%) | |
| PARAVERTEBRAL L5 CHO | 1 (4.3%) | 1 (14%) | 0 (0%) | |
| S1 DCHO | 1 (4.3%) | 1 (14%) | 0 (0%) | |
| S1 DCHO, L4, L5 IZQ | 1 (4.3%) | 0 (0%) | 1 (6.2%) | |
| S1 DERECHO/L4, L5 IZQUIERDO | 1 (4.3%) | 1 (14%) | 0 (0%) | |
| S1 IZQ | 2 (8.7%) | 1 (14%) | 1 (6.2%) | |
| Unknown | 28 | 28 | 0 | |
| DESCARGA MIOTONICA | 0 (NA%) | 0 (NA%) | 0 (NA%) | |
| Unknown | 51 | 35 | 16 | |
| DESCARGA REPETITIVA COMPLEJA | 0 (NA%) | 0 (NA%) | 0 (NA%) | |
| Unknown | 51 | 35 | 16 | |
| POTENCIAL DE FASCICULACIÓN | ||||
| L5 PARAVERTEBRAL IZQ | 1 (100%) | 0 (NA%) | 1 (100%) | |
| Unknown | 50 | 35 | 15 | |
| DESCARGA MIOQUIMICA | ||||
| L4 IZQ PARAVERTEBRAL | 1 (100%) | 0 (NA%) | 1 (100%) | |
| Unknown | 50 | 35 | 15 | |
| POTENCIAL DE CALAMBRE | 0 (NA%) | 0 (NA%) | 0 (NA%) | |
| Unknown | 51 | 35 | 16 | |
| DESCARGA NEUROMIOTONICA | 0 (NA%) | 0 (NA%) | 0 (NA%) | |
| Unknown | 51 | 35 | 16 | |
| TEMBLOR DE REPOSO | 0 (NA%) | 0 (NA%) | 0 (NA%) | |
| Unknown | 51 | 35 | 16 | |
| MIOTOMO AFECTADO | 0.2 | |||
| L3, L4 | 1 (4.8%) | 0 (0%) | 1 (6.7%) | |
| L3, L4, S1 | 1 (4.8%) | 0 (0%) | 1 (6.7%) | |
| L4 | 2 (9.5%) | 1 (17%) | 1 (6.7%) | |
| L4, L5 | 2 (9.5%) | 0 (0%) | 2 (13%) | |
| L4, L5, S1 | 5 (24%) | 1 (17%) | 4 (27%) | |
| L4, S1 | 3 (14%) | 0 (0%) | 3 (20%) | |
| L5 | 1 (4.8%) | 1 (17%) | 0 (0%) | |
| L5 PARAVERTEBRAL | 1 (4.8%) | 1 (17%) | 0 (0%) | |
| L5, S1 | 1 (4.8%) | 0 (0%) | 1 (6.7%) | |
| PARAVERTEBRAL L4, L5 | 1 (4.8%) | 0 (0%) | 1 (6.7%) | |
| S1 | 2 (9.5%) | 2 (33%) | 0 (0%) | |
| T12, L1, L2, L3, L5, S1 | 1 (4.8%) | 0 (0%) | 1 (6.7%) | |
| Unknown | 30 | 29 | 1 | |
| MIOTOMO DERECHO | 0.8 | |||
| DCHO | 3 (18%) | 1 (20%) | 2 (17%) | |
| DCHO PARAVERTEBRAL | 1 (5.9%) | 1 (20%) | 0 (0%) | |
| DERECHO | 3 (18%) | 2 (40%) | 1 (8.3%) | |
| L1, L2, L3, L5, S1 | 1 (5.9%) | 0 (0%) | 1 (8.3%) | |
| L4, L5 | 1 (5.9%) | 0 (0%) | 1 (8.3%) | |
| L4, S1 DERECHO | 1 (5.9%) | 0 (0%) | 1 (8.3%) | |
| L5 | 1 (5.9%) | 0 (0%) | 1 (8.3%) | |
| L5 DCHO | 1 (5.9%) | 0 (0%) | 1 (8.3%) | |
| L5, S1 | 1 (5.9%) | 0 (0%) | 1 (8.3%) | |
| L5, S1 DCHO | 2 (12%) | 0 (0%) | 2 (17%) | |
| S1 | 1 (5.9%) | 1 (20%) | 0 (0%) | |
| S1 DCHO | 1 (5.9%) | 0 (0%) | 1 (8.3%) | |
| Unknown | 34 | 30 | 4 | |
| MIOTOMO IZQUIERDO | 0.9 | |||
| IZQ | 3 (27%) | 1 (50%) | 2 (22%) | |
| L3, L4, S1 IZQ | 1 (9.1%) | 0 (0%) | 1 (11%) | |
| L4, L4 IZQ | 1 (9.1%) | 0 (0%) | 1 (11%) | |
| L4, L5 | 1 (9.1%) | 1 (50%) | 0 (0%) | |
| L4, L5, S1 IZQ | 2 (18%) | 0 (0%) | 2 (22%) | |
| L4, S1 | 1 (9.1%) | 0 (0%) | 1 (11%) | |
| S1, L4 | 1 (9.1%) | 0 (0%) | 1 (11%) | |
| T12, L1 | 1 (9.1%) | 0 (0%) | 1 (11%) | |
| Unknown | 40 | 33 | 7 | |
| REPORTE ANORMAL | ||||
| ANORMAL | 16 (100%) | 0 (NA%) | 16 (100%) | |
| Unknown | 35 | 35 | 0 | |
| REPORTE NORMAL | ||||
| NORMAL | 35 (100%) | 35 (100%) | 0 (NA%) | |
| Unknown | 16 | 0 | 16 | |
| RADICULOPATIA REPORTE | <0.001 | |||
| ANORMAL | 16 (31%) | 0 (0%) | 16 (100%) | |
| NORMAL | 35 (69%) | 35 (100%) | 0 (0%) | |
| RADICULOPATIA...52 | <0.001 | |||
| NO | 35 (69%) | 35 (100%) | 0 (0%) | |
| SI | 16 (31%) | 0 (0%) | 16 (100%) | |
| MIOTOMO | >0.9 | |||
| L1, L2, L3 BILATERL, L4, L5 DERECHO, T12 IZQ | 1 (5.9%) | 0 (0%) | 1 (6.2%) | |
| L4, L5, BILATERAL | 1 (5.9%) | 0 (0%) | 1 (6.2%) | |
| L4, L5, S1 IIZQUIERDO | 1 (5.9%) | 0 (0%) | 1 (6.2%) | |
| L4, L5, S1 IZQ | 1 (5.9%) | 0 (0%) | 1 (6.2%) | |
| L5 DERECHO | 1 (5.9%) | 0 (0%) | 1 (6.2%) | |
| L5 Y S1 IZQ | 1 (5.9%) | 0 (0%) | 1 (6.2%) | |
| RADICULO L4, L5 IZQUIERDO | 1 (5.9%) | 0 (0%) | 1 (6.2%) | |
| RADICULOPATIA L3, L4 DCHO | 1 (5.9%) | 0 (0%) | 1 (6.2%) | |
| RADICULOPATIA L3, L4, S1 IZQ Y L5 DCHO | 1 (5.9%) | 0 (0%) | 1 (6.2%) | |
| RADICULOPATIA L4 BILATERAL | 1 (5.9%) | 0 (0%) | 1 (6.2%) | |
| RADICULOPATIA L4, IZQ, L5, S1 BILATERAL | 1 (5.9%) | 0 (0%) | 1 (6.2%) | |
| RADICULOPATIA L4, L5 BILATERAL | 1 (5.9%) | 0 (0%) | 1 (6.2%) | |
| RADICULOPATIA L5 BILATERAL | 1 (5.9%) | 0 (0%) | 1 (6.2%) | |
| RADICULOPATIA L5 BILATERAL Y L4 IZQ | 1 (5.9%) | 0 (0%) | 1 (6.2%) | |
| RADICULOPATIA L5 DERECHO | 1 (5.9%) | 0 (0%) | 1 (6.2%) | |
| RADICULOPATIA L5, S1 DCHO | 1 (5.9%) | 1 (100%) | 0 (0%) | |
| RADICULOPATIA S1 DERECHO | 1 (5.9%) | 0 (0%) | 1 (6.2%) | |
| Unknown | 34 | 34 | 0 | |
| 1 Median (IQR); n (%) | ||||
| 2 Wilcoxon rank sum test; Fisher's exact test; Pearson's Chi-squared test | ||||
ANALISIS KAPPA DE FLEISS
AMPLITUD MOTORA Y SENSITIVA
#BASADO EN ESTA PAGINA: https://www.datanovia.com/en/lessons/fleiss-kappa-in-r-for-multiple-categorical-variables/
concordamplitud<-dbdrailse %>% select(`RADICULOPATIA REPORTE`, `AMPLITUD MOTORA DE NERVIO PERONEO`)
concordamplitud## # A tibble: 51 × 2
## `RADICULOPATIA REPORTE` `AMPLITUD MOTORA DE NERVIO PERONEO`
## <chr> <chr>
## 1 ANORMAL NORMAL
## 2 ANORMAL NORMAL
## 3 NORMAL NORMAL
## 4 NORMAL NORMAL
## 5 ANORMAL ANORMAL
## 6 NORMAL ANORMAL
## 7 NORMAL NORMAL
## 8 ANORMAL ANORMAL
## 9 NORMAL NORMAL
## 10 NORMAL ANORMAL
## # … with 41 more rows#install.packages("irr")
library("lpSolve")
library("irr")
# Select the irst three raters
mydata <- concordamplitud[, 1:2]
# Compute kapa
kappam.fleiss(mydata)## Fleiss' Kappa for m Raters
##
## Subjects = 51
## Raters = 2
## Kappa = 0.244
##
## z = 1.75
## p-value = 0.0809kappam.fleiss(mydata, detail = TRUE)## Fleiss' Kappa for m Raters
##
## Subjects = 51
## Raters = 2
## Kappa = 0.244
##
## z = 1.75
## p-value = 0.0809
##
## Kappa z p.value
## ANORMAL 0.244 1.746 0.081
## NORMAL 0.244 1.746 0.081#`AMPLITUD MOTORA DE NERVIO TIBIAL`
concordamplitud<-dbdrailse %>% select(`RADICULOPATIA REPORTE`,
`AMPLITUD MOTORA DE NERVIO TIBIAL`)
# Select the irst three raters
mydata <- concordamplitud[, 1:2]
# Compute kapa
kappam.fleiss(mydata)## Fleiss' Kappa for m Raters
##
## Subjects = 51
## Raters = 2
## Kappa = 0.0298
##
## z = 0.213
## p-value = 0.831kappam.fleiss(mydata, detail = TRUE)## Fleiss' Kappa for m Raters
##
## Subjects = 51
## Raters = 2
## Kappa = 0.0298
##
## z = 0.213
## p-value = 0.831
##
## Kappa z p.value
## ANORMAL 0.030 0.213 0.831
## NORMAL 0.030 0.213 0.831concordamplitud<-dbdrailse %>% select(`RADICULOPATIA REPORTE`, `AMPLITUD SENSITIVA DE NERVIO SURAL ALTERADA`)
# Select the irst three raters
mydata <- concordamplitud[, 1:2]
# Compute kapa
kappam.fleiss(mydata)## Fleiss' Kappa for m Raters
##
## Subjects = 51
## Raters = 2
## Kappa = 0.381
##
## z = 2.72
## p-value = 0.00657kappam.fleiss(mydata, detail = TRUE)## Fleiss' Kappa for m Raters
##
## Subjects = 51
## Raters = 2
## Kappa = 0.381
##
## z = 2.72
## p-value = 0.00657
##
## Kappa z p.value
## ANORMAL 0.381 2.718 0.007
## NORMAL 0.381 2.718 0.007##LATENCIA #LATENCIA NERVIO PERONEO
conclatenciaperoneo<-dbdrailse %>% select(`RADICULOPATIA REPORTE`, `LATENCIA INICIAL DE NERVIO PERONEO ALTERADA`)
# Select the irst three raters
mydata <- conclatenciaperoneo[, 1:2]
# Compute kapa
kappam.fleiss(mydata)## Fleiss' Kappa for m Raters
##
## Subjects = 51
## Raters = 2
## Kappa = 0.0556
##
## z = 0.397
## p-value = 0.692kappam.fleiss(mydata, detail = TRUE)## Fleiss' Kappa for m Raters
##
## Subjects = 51
## Raters = 2
## Kappa = 0.0556
##
## z = 0.397
## p-value = 0.692
##
## Kappa z p.value
## ANORMAL 0.056 0.397 0.692
## NORMAL 0.056 0.397 0.692#LATENCIA NERVIO TIBIAL
conclatenciatibial<-dbdrailse %>% select(`RADICULOPATIA REPORTE`, `LATENCIA INICIAL DE NERVIO TIBIAL ALATERADA`)
# Select the irst three raters
mydata <-
conclatenciatibial[, 1:2]
# Compute kapa
kappam.fleiss(mydata)## Fleiss' Kappa for m Raters
##
## Subjects = 51
## Raters = 2
## Kappa = -0.0588
##
## z = -0.42
## p-value = 0.674kappam.fleiss(mydata, detail = TRUE)## Fleiss' Kappa for m Raters
##
## Subjects = 51
## Raters = 2
## Kappa = -0.0588
##
## z = -0.42
## p-value = 0.674
##
## Kappa z p.value
## ANORMAL -0.059 -0.420 0.674
## NORMAL -0.059 -0.420 0.674#LATENCIA NERVIO SURAL
onclatenciasural<-dbdrailse %>% select(`RADICULOPATIA REPORTE`, `LATENCIA PICO DE NERVIO SURAL`)
# Select the irst three raters
mydata <- onclatenciasural[, 1:2]
# Compute kapa
kappam.fleiss(mydata)## Fleiss' Kappa for m Raters
##
## Subjects = 51
## Raters = 2
## Kappa = 0.446
##
## z = 3.18
## p-value = 0.00145kappam.fleiss(mydata, detail = TRUE)## Fleiss' Kappa for m Raters
##
## Subjects = 51
## Raters = 2
## Kappa = 0.446
##
## z = 3.18
## p-value = 0.00145
##
## Kappa z p.value
## ANORMAL 0.446 3.185 0.001
## NORMAL 0.446 3.185 0.001##VELOCIDAD #VELOCIDAD DE NEUROCONDUCCION DE NERVIO PERONEO
velperone<-dbdrailse %>% select(`RADICULOPATIA REPORTE`, `VELOCIDAD DE NEUROCONDUCCION DE NERVIO PERONEO`)
# Select the irst three raters
mydata <- velperone[, 1:2]
# Compute kapa
kappam.fleiss(mydata)## Fleiss' Kappa for m Raters
##
## Subjects = 51
## Raters = 2
## Kappa = 0.128
##
## z = 0.916
## p-value = 0.36kappam.fleiss(mydata, detail = TRUE)## Fleiss' Kappa for m Raters
##
## Subjects = 51
## Raters = 2
## Kappa = 0.128
##
## z = 0.916
## p-value = 0.36
##
## Kappa z p.value
## ANORMAL 0.128 0.916 0.360
## NORMAL 0.128 0.916 0.360#VELOCIDAD DE NEUROCONDUCCION DE NERVIO TIBIAL ALTERADA
veltibial<-dbdrailse %>% select(`RADICULOPATIA REPORTE`, `VELOCIDAD DE NEUROCONDUCCION DE NERVIO TIBIAL ALTERADA`)
# Select the irst three raters
mydata <-
veltibial[, 1:2]
# Compute kapa
kappam.fleiss(mydata)## Fleiss' Kappa for m Raters
##
## Subjects = 51
## Raters = 2
## Kappa = 0.0727
##
## z = 0.519
## p-value = 0.603kappam.fleiss(mydata, detail = TRUE)## Fleiss' Kappa for m Raters
##
## Subjects = 51
## Raters = 2
## Kappa = 0.0727
##
## z = 0.519
## p-value = 0.603
##
## Kappa z p.value
## ANORMAL 0.073 0.519 0.603
## NORMAL 0.073 0.519 0.603##RESPUESTA F
RESF<-dbdrailse %>% select(`RADICULOPATIA REPORTE`, `RESPUESTA F`)
# Select the irst three raters
mydata <-
RESF[, 1:2]
# Compute kapa
kappam.fleiss(mydata)## Fleiss' Kappa for m Raters
##
## Subjects = 51
## Raters = 2
## Kappa = 0.307
##
## z = 2.19
## p-value = 0.0285kappam.fleiss(mydata, detail = TRUE)## Fleiss' Kappa for m Raters
##
## Subjects = 51
## Raters = 2
## Kappa = 0.307
##
## z = 2.19
## p-value = 0.0285
##
## Kappa z p.value
## ANORMAL 0.307 2.190 0.029
## NORMAL 0.307 2.190 0.029