[R-es] Resultado de la consola como un tibble

library(data.table)
myDT       <- as.data.table(mtcars)
myDTlong <- melt(myDT, measure.vars=1:ncol(myDT))
myDTlong[ , list(p_value = shapiro.test(value)$p.value, v_stat =

Hola,

No hace falta (en este caso) capturarlo de la consola.
El resultado de la función apply se puede capturar y procesar.

data("mtcars")
# Mtcars_matriz <- as.matrix(mtcars)
res_out <- apply(mtcars, MARGIN =2, FUN = shapiro.test)


res_df <- as.data.frame(unlist(res_out))
res_df$vars <- rownames(res_df)
rownames(res_df) <- NULL
names(res_df)[1] <- c('values')

library(stringr)
res_fin <- data.frame(

+   pvalues = res_df[ str_detect(res_df$vars, "value"), ],
+   estadis = res_df[ str_detect(res_df$vars, "statistic"), ]
+ )

res_fin

         pvalues.values pvalues.vars    estadis.values     estadis.vars
2     0.122881358539443  mpg.p.value 0.947564726479274  mpg.statistic.W
6  6.05833813310341e-06  cyl.p.value 0.753310022842721  cyl.statistic.W
10   0.0208065696108598 disp.p.value 0.920012680133146 disp.statistic.W
14   0.0488082381051741   hp.p.value  0.93341934019855   hp.statistic.W
18    0.110060757426683 drat.p.value 0.945883896521269 drat.statistic.W
22   0.0926549888932132   wt.p.value 0.943257719087817   wt.statistic.W
26    0.593517649295161 qsec.p.value 0.973250948857977 qsec.statistic.W
30 9.73737573091618e-08   vs.p.value 0.632263534949347   vs.statistic.W
34 7.83635448813453e-08   am.p.value 0.625074366031524   am.statistic.W
38 1.30684376520844e-05 gear.p.value 0.772785633173186 gear.statistic.W
42 0.000438240495931375 carb.p.value 0.851097225173946 carb.statistic.W

Saludos,
Carlos Ortega
www.qualityexcellence.es


El dom., 18 oct. 2020 a las 7:12, Jimmy Erney Reyes Velasco (<
jimmyreyesvelasco en gmail.com>) escribió:

Buen día
estimados
Estoy tratando de hacer un tibble con los resultados de un apply que se
muestran en la consola que me da R, no estoy seguro si eso se pueda hacer,
pero me gustaría organizar los resultados de esa manera.
mi código es:
data("mtcars")
Mtcars_matriz <- as.matrix(mtcars)
apply(Mtcars_matriz, MARGIN =2, FUN = shapiro.test)
DF2 <- tibble(Variable = NA, W = NA, Pvalue = NA)

la idea es que me guarde el nombre de la variable, el valor del
estadístico
y el pvalor.

¿alguien sabe si esto se puede hacer?
agradezco mucho su información
saludos

        [[alternative HTML version deleted]]

--
Saludos,
Carlos Ortega
www.qualityexcellence.es