baseFinal=base %>% select(ID,GRUPO) %>% inner_join(dfWideDif01) %>% inner_join(dfWideDif02)
## Joining, by = "ID"
## Joining, by = "ID"
baseFinal2=baseFinal %>% select(-ID) %>%
mutate(GRUPO=factor(as.integer(GRUPO),levels=c(1,2,3),labels=c("Grupo 1","Grupo 2","p-valor")) )
rndr <- function(x, name, ...) {
if (length(x) == 0) {
y <- baseFinal2[[name]]
s <- rep("", length(render.default(x=y, name=name, ...)))
if (is.numeric(y)) {
p=1
try({
p <- t.test(y ~ baseFinal2$GRUPO)$p.value
})
} else {
p=1
try({
p <- chisq.test(table(y, droplevels(baseFinal2$GRUPO)))$p.value
})
}
s[2] <- sub("<", "<", format.pval(p, digits=3, eps=0.001))
s
} else {
render.default(x=x, name=name, ...)
}
}
rndr.strat <- function(label, n, ...) {
ifelse(n==0, label, render.strat.default(label, n, ...))
}
table1( ~ . |GRUPO,data=baseFinal2, droplevels=F, render=rndr, render.strat=rndr.strat, overall=F)
## Warning in chisq.test(table(y, droplevels(baseFinal2$GRUPO))): Chi-squared
## approximation may be incorrect
Grupo 1 (n=8) |
Grupo 2 (n=12) |
p-valor | |
---|---|---|---|
GRUPO | |||
Grupo 1 | 8 (100%) | 0 (0%) | NA |
Grupo 2 | 0 (0%) | 12 (100%) | |
p-valor | 0 (0%) | 0 (0%) | |
DASH1_dif01 | |||
Mean (SD) | -1.25 (0.886) | -1.50 (1.31) | 0.618 |
Median [Min, Max] | -1.50 [-2.00, 0.00] | -2.00 [-3.00, 2.00] | |
DASH10_dif01 | |||
Mean (SD) | -1.25 (0.886) | -0.917 (0.793) | 0.405 |
Median [Min, Max] | -1.50 [-2.00, 0.00] | -1.00 [-2.00, 0.00] | |
DASH11_dif01 | |||
Mean (SD) | -0.750 (1.04) | -0.833 (0.937) | 0.857 |
Median [Min, Max] | -0.500 [-3.00, 0.00] | -1.00 [-3.00, 1.00] | |
DASH2_dif01 | |||
Mean (SD) | -1.13 (1.13) | -1.50 (1.24) | 0.494 |
Median [Min, Max] | -1.00 [-3.00, 0.00] | -1.50 [-3.00, 1.00] | |
DASH3_dif01 | |||
Mean (SD) | -1.00 (0.926) | -1.75 (1.22) | 0.136 |
Median [Min, Max] | -1.00 [-3.00, 0.00] | -2.00 [-4.00, 0.00] | |
DASH4_dif01 | |||
Mean (SD) | -1.00 (1.20) | -0.750 (1.06) | 0.639 |
Median [Min, Max] | -0.500 [-3.00, 0.00] | -1.00 [-3.00, 1.00] | |
DASH5_dif01 | |||
Mean (SD) | 0.00 (1.07) | -0.583 (1.24) | 0.278 |
Median [Min, Max] | 0.00 [-2.00, 1.00] | -1.00 [-3.00, 2.00] | |
DASH6_dif01 | |||
Mean (SD) | -1.63 (2.00) | -1.42 (1.31) | 0.8 |
Median [Min, Max] | -2.00 [-4.00, 2.00] | -1.50 [-3.00, 2.00] | |
DASH7_dif01 | |||
Mean (SD) | -0.500 (1.31) | -0.667 (1.30) | 0.784 |
Median [Min, Max] | -0.500 [-2.00, 2.00] | 0.00 [-3.00, 1.00] | |
DASH8_dif01 | |||
Mean (SD) | -0.750 (0.707) | -0.667 (1.15) | 0.844 |
Median [Min, Max] | -1.00 [-2.00, 0.00] | -1.00 [-2.00, 1.00] | |
DASH9_dif01 | |||
Mean (SD) | -0.625 (0.744) | -0.833 (0.835) | 0.567 |
Median [Min, Max] | -0.500 [-2.00, 0.00] | -1.00 [-2.00, 1.00] | |
DASHTO_dif01 | |||
Mean (SD) | -20.2 (15.8) | -25.4 (17.1) | 0.495 |
Median [Min, Max] | -18.2 [-47.7, -2.27] | -26.1 [-56.8, 6.82] | |
EVA_dif01 | |||
Mean (SD) | -3.40 (1.85) | -2.71 (1.63) | 0.406 |
Median [Min, Max] | -3.50 [-5.90, -1.00] | -3.00 [-4.00, 1.00] | |
DASH1_dif02 | |||
Mean (SD) | -0.375 (1.06) | 0.167 (0.937) | 0.261 |
Median [Min, Max] | -0.500 [-2.00, 1.00] | 0.00 [-1.00, 2.00] | |
DASH10_dif02 | |||
Mean (SD) | -0.500 (0.535) | -0.417 (1.38) | 0.852 |
Median [Min, Max] | -0.500 [-1.00, 0.00] | -1.00 [-2.00, 3.00] | |
DASH11_dif02 | |||
Mean (SD) | -0.125 (1.46) | -0.0833 (0.669) | 0.941 |
Median [Min, Max] | 0.00 [-2.00, 3.00] | 0.00 [-1.00, 1.00] | |
DASH2_dif02 | |||
Mean (SD) | -0.625 (1.06) | -0.167 (0.718) | 0.307 |
Median [Min, Max] | -0.500 [-2.00, 1.00] | 0.00 [-1.00, 1.00] | |
DASH3_dif02 | |||
Mean (SD) | -0.375 (0.518) | -0.750 (1.06) | 0.306 |
Median [Min, Max] | 0.00 [-1.00, 0.00] | -1.00 [-3.00, 1.00] | |
DASH4_dif02 | |||
Mean (SD) | -0.500 (0.926) | -0.417 (1.31) | 0.87 |
Median [Min, Max] | -0.500 [-2.00, 1.00] | 0.00 [-4.00, 1.00] | |
DASH5_dif02 | |||
Mean (SD) | -0.250 (0.707) | -0.417 (1.31) | 0.718 |
Median [Min, Max] | 0.00 [-1.00, 1.00] | -0.500 [-2.00, 2.00] | |
DASH6_dif02 | |||
Mean (SD) | -0.500 (1.60) | -0.333 (1.44) | 0.816 |
Median [Min, Max] | -1.00 [-2.00, 3.00] | -1.00 [-2.00, 3.00] | |
DASH7_dif02 | |||
Mean (SD) | -0.500 (0.756) | -0.250 (1.48) | 0.627 |
Median [Min, Max] | 0.00 [-2.00, 0.00] | 0.00 [-3.00, 2.00] | |
DASH8_dif02 | |||
Mean (SD) | -0.250 (0.886) | -0.500 (1.24) | 0.606 |
Median [Min, Max] | -0.500 [-1.00, 1.00] | -0.500 [-3.00, 1.00] | |
DASH9_dif02 | |||
Mean (SD) | -0.500 (0.756) | -0.500 (1.17) | 1 |
Median [Min, Max] | 0.00 [-2.00, 0.00] | 0.00 [-3.00, 1.00] | |
DASHTO_dif02 | |||
Mean (SD) | -15.9 (15.2) | -8.70 (20.3) | 0.376 |
Median [Min, Max] | -18.2 [-34.1, 9.09] | -7.96 [-40.9, 27.3] | |
EVA_dif02 | |||
Mean (SD) | -2.89 (1.88) | -1.42 (2.01) | 0.115 |
Median [Min, Max] | -2.40 [-5.50, -1.00] | -1.25 [-5.00, 2.50] |