Leyendo GoogleSheet “Hoja resumen”

read_resumen <- function(ss) {
  df <- read_sheet(ss,
                   sheet=1,range= "A1:P37",
                   col_names = TRUE,col_types="c")
  df}

read_grupoT <- function(ss) {
  df2 <- read_sheet(ss,
                   sheet=2,range= "I1:L64",
                   col_names = TRUE,col_types="c")
  df2}

N

graph

DeltaFR

DeltaFC

Delta FR

Delta FC

Duración de anestesia entre grupos

Duración de la anestesia (min) ~ Grupo de Dosis de Lidocaína

GLM Duración de la anestesia

Es evidente la relación entre la duración de la anestesia (minutos) y la dósis de Lidocaína. Sin embargo,la principal diferencia es contra el grupo sin lidocaína. En los gráficos se utiliza el promedio general de duración de anestesia en minutos como referencia con una linea gris discontinua.

Call:
glm(formula = A.duration.Min ~ Grupo * (gramos), family = "poisson", 
    data = df)

Coefficients:
                Estimate Std. Error z value Pr(>|z|)    
(Intercept)    3.5436514  0.3690310   9.603   <2e-16 ***
GrupoB         0.9967224  0.4165246   2.393   0.0167 *  
GrupoC        -0.1972947  0.4241981  -0.465   0.6419    
GrupoD         0.0710933  0.4941496   0.144   0.8856    
gramos         0.0018703  0.0009441   1.981   0.0476 *  
GrupoB:gramos -0.0014564  0.0010719  -1.359   0.1742    
GrupoC:gramos  0.0013369  0.0010768   1.242   0.2144    
GrupoD:gramos  0.0005336  0.0012952   0.412   0.6803    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for poisson family taken to be 1)

    Null deviance: 376.45  on 35  degrees of freedom
Residual deviance: 245.11  on 28  degrees of freedom
AIC: 488.25

Number of Fisher Scoring iterations: 4

La duración de la anestesia es afectada por la dósis de Lidocaína. Sin embargo, no se detectó diferencia entre las diferentes dosis de Lidocaína. No se detectó interacción entre el peso de los individuos y la dósis. El peso de los individuos, en cambio, sí influyó positivamente en la duración de la anestesia. El grupo D presentó un peso promedio menor al resto de los grupos.

Call:
glm(formula = gramos ~ Grupo, family = "poisson", data = df)

Coefficients:
             Estimate Std. Error z value Pr(>|z|)    
(Intercept)  5.953820   0.016983 350.568   <2e-16 ***
GrupoB      -0.030159   0.024201  -1.246   0.2127    
GrupoC      -0.001443   0.024027  -0.060   0.9521    
GrupoD      -0.054532   0.024352  -2.239   0.0251 *  
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for poisson family taken to be 1)

    Null deviance: 294.24  on 35  degrees of freedom
Residual deviance: 287.39  on 32  degrees of freedom
AIC: 574.75

Number of Fisher Scoring iterations: 4

GLM Duración de la anestesia

Es evidente la relación entre la duración de la anestesia (minutos) y la dósis de Lidocaína. Sin embargo,la principal diferencia es contra el grupo sin lidocaína. En los gráficos se utiliza el promedio general de duración de anestesia en minutos como referencia con una linea gris discontinua.

Call:
glm(formula = A.duration.Min ~ Grupo * (gramos), family = "poisson", 
    data = df)

Coefficients:
                Estimate Std. Error z value Pr(>|z|)    
(Intercept)    3.5436514  0.3690310   9.603   <2e-16 ***
GrupoB         0.9967224  0.4165246   2.393   0.0167 *  
GrupoC        -0.1972947  0.4241981  -0.465   0.6419    
GrupoD         0.0710933  0.4941496   0.144   0.8856    
gramos         0.0018703  0.0009441   1.981   0.0476 *  
GrupoB:gramos -0.0014564  0.0010719  -1.359   0.1742    
GrupoC:gramos  0.0013369  0.0010768   1.242   0.2144    
GrupoD:gramos  0.0005336  0.0012952   0.412   0.6803    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for poisson family taken to be 1)

    Null deviance: 376.45  on 35  degrees of freedom
Residual deviance: 245.11  on 28  degrees of freedom
AIC: 488.25

Number of Fisher Scoring iterations: 4

La duración de la anestesia es afectada por la dósis de Lidocaína. Sin embargo, No se detectó diferencia entre las diferentes dosis de Lidocaína. No se detectó interacción entre el peso de los individuos y la dósis. El peso de los individuos, en cambio, sí influyó positivamente en la duración de la anestesia.

Peso (g) como Covariable

Tiempo Inyección de Lidocaína (min) como Covariable

Bootstrap CI

GLM

Call:
glm(formula = DeltaRPM ~ Grupo, family = "gaussian", data = df)

Coefficients:
            Estimate Std. Error t value Pr(>|t|)
(Intercept)   -3.778      3.659  -1.033    0.312
GrupoC         8.222      5.174   1.589    0.125
GrupoD         5.000      5.174   0.966    0.344

(Dispersion parameter for gaussian family taken to be 120.4722)

    Null deviance: 3200.3  on 26  degrees of freedom
Residual deviance: 2891.3  on 24  degrees of freedom
  (9 observations deleted due to missingness)
AIC: 210.81

Number of Fisher Scoring iterations: 2

No se detectaron diferencias entre las medias de la diferencia de RPM (antes y despues del estímulo) entre las tres dósis de lidocaína. Sin embargo, con propósito exploratorio, en la gráfica siguiente se utiliza el peso como un gradiente de color para cada individuo. El peso no parece estar asociado a esos valores aberrantes ya que también se observan individuos “pesados”con valores bajos de duración de anestesia

Peso (g) como Covariable

Tiempo Inyección de Lidocaína (min) como Covariable

DeltaLPM ~ Dosis Lidocaína

DeltaLPM ~ Peso * Dosis Lidocaína

GLM

Call:
glm(formula = DeltaLPM ~ Grupo * gramos, family = "gaussian", 
    data = DF)

Coefficients:
               Estimate Std. Error t value Pr(>|t|)  
(Intercept)     56.8839    74.9008   0.759   0.4560  
GrupoC        -188.6258   103.5754  -1.821   0.0829 .
GrupoD          -0.1564   138.1723  -0.001   0.9991  
gramos          -0.1700     0.1976  -0.860   0.3993  
GrupoC:gramos    0.4807     0.2695   1.784   0.0889 .
GrupoD:gramos   -0.0324     0.3731  -0.087   0.9316  
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for gaussian family taken to be 1378.235)

    Null deviance: 34984  on 26  degrees of freedom
Residual deviance: 28943  on 21  degrees of freedom
AIC: 279.01

Number of Fisher Scoring iterations: 2

Se detectaron diferencias entre las medias de la diferencia de LPM (antes y despues del estímulo) entre las tres dósis de lidocaína, pero solo entre el grupo C (comparado contra al B). Se detectó cierta interacción entre el peso corporal y la dosis de lidocaina (en el grupo C, P<0.1).

Tiempo-Lidocaina(segundos) ~ Peso

Duracion Anestesia ~ Tiempo Lidocaína

GLM Diración anestesia x graos x tiempo lidocaina

Es evidente la asociación entre el peso de los individuos y el “tiempo de Lidocaína”, y esta es más marcada en los grupos C (en verde) y D (en azul). Es decir, el tiempo que tomaron en inyectar Lidocaina tuvo asociación con el peso.

Call:
glm(formula = A.duration.Min ~ Grupo * gramos * T.Lidoc.sec, 
    family = "poisson", data = DF)

Coefficients:
                            Estimate Std. Error z value Pr(>|z|)    
(Intercept)                6.516e+00  3.934e-01  16.564  < 2e-16 ***
GrupoC                    -9.070e+00  1.213e+00  -7.479 7.50e-14 ***
GrupoD                    -1.061e+01  1.408e+00  -7.533 4.95e-14 ***
gramos                    -4.959e-03  1.061e-03  -4.675 2.94e-06 ***
T.Lidoc.sec               -6.271e-03  1.075e-03  -5.833 5.45e-09 ***
GrupoC:gramos              2.106e-02  2.740e-03   7.685 1.53e-14 ***
GrupoD:gramos              2.860e-02  4.019e-03   7.117 1.10e-12 ***
GrupoC:T.Lidoc.sec         1.516e-02  2.009e-03   7.545 4.54e-14 ***
GrupoD:T.Lidoc.sec         1.958e-02  2.436e-03   8.038 9.17e-16 ***
gramos:T.Lidoc.sec         1.722e-05  2.936e-06   5.866 4.47e-09 ***
GrupoC:gramos:T.Lidoc.sec -3.656e-05  4.693e-06  -7.791 6.65e-15 ***
GrupoD:gramos:T.Lidoc.sec -5.359e-05  6.923e-06  -7.741 9.90e-15 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for poisson family taken to be 1)

    Null deviance: 282.42  on 26  degrees of freedom
Residual deviance: 102.25  on 15  degrees of freedom
AIC: 298.63

Number of Fisher Scoring iterations: 4

En general, existen efectos comnbinados del peso de los individuos y la duración de aplicación la Licodaína en el efecto que la Lidocaina tuvo sobre la duración de la anestesia. Sin embargo, comparando los grupos, dicha relación es más fuerte en los grupos C (12 mg/kg, P<0.001) y D (16 mg/Kg, P<0.001), que en el grupo B (8 mg/Kg).

Duración de la anestesia (min) ~ Peso

GLM Duración de la anestesia

Es evidente la relación entre el peso de los individuos y la duración de la anestesia (minutos). Esta se ve con la línea dioscontinua negra. Sin embargo, esta solo es evidente en los grupos C (en verde) y D (en azul). Esto se confirma con el análisis de covarianza realizado con el GLM.

Call:
glm(formula = A.duration.Min ~ Grupo * gramos, family = "poisson", 
    data = DF)

Coefficients:
                Estimate Std. Error z value Pr(>|z|)    
(Intercept)    4.5403738  0.1931552  23.506  < 2e-16 ***
GrupoC        -1.1940172  0.2847263  -4.194 2.75e-05 ***
GrupoD        -0.9256292  0.3811941  -2.428 0.015172 *  
gramos         0.0004139  0.0005075   0.816 0.414726    
GrupoC:gramos  0.0027933  0.0007251   3.852 0.000117 ***
GrupoD:gramos  0.0019900  0.0010216   1.948 0.051426 .  
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for poisson family taken to be 1)

    Null deviance: 282.42  on 26  degrees of freedom
Residual deviance: 216.95  on 21  degrees of freedom
AIC: 401.33

Number of Fisher Scoring iterations: 4

En general, existe relación entre el peso de los individuos y la duración de la anestesia medida en minutos (línea negra discontinua en la figura). Sin embargo, dicha relación se presenta solamente en los grupos C (12 mg/kg, P<0.001) y D (16 mg/Kg, P=0.051). En el grupo B (8 mg/Kg) no existe relación (P=0.415).

Tabla Completa

Número de Pacientes = 36