Displaying 6 results from an estimated 6 matches for "res_df".
2020 Oct 18
2
Resultado de la consola como un tibble
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 =
2020 Oct 18
1
Resultado de la consola como un tibble
...a (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, &q...
2020 Oct 18
0
Resultado de la consola como un tibble
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 =...
2018 Mar 09
3
Contar categorías después de ciertos valores
Hola,
Estoy intentando averiguar cómo contar el número de categorías situadas después de ciertos valores. Por ejemplo, en el siguiente vector:
x <- c(3, "A", "B", 5, "A", 4, 5, "A", "A", 3)
el resultado que quisiera obtener es:
Valor -> Resultado
3 -> 1 A y 1 B
4 -> 0 A y 0 B
5 -> 3 A y 0 B
¿Alguien tiene alguna
2023 Jan 27
0
Resumen de R-help-es, Vol 167, Envío 10
...8 1 1 1 0
> 9 0 0 0 0
> 10 0 1 1 1
> > > #--- Función compara parejas de columnas comienzan por mismas 2 letras.
> > *colcompare <- function(df)* {
> +
> + nam_val <- names(df) %>% stri_sub(from = 1, to = 2) %>% unique()
> + res_df <- data.table()
> + for (i in 1:length(nam_val)) {
> + cols_tmp <- nam_val[i]
> + df_tmp <- df %>% select.(starts_with(cols_tmp)) %>%
> + rename.( a = 1) %>%
> + rename.( b = 2) %>%
> + mutate.( c = if_else.( a == 1 | b == 1,...
2023 Jan 28
0
Resumen de R-help-es, Vol 167, Envío 10
...8 1 1 1 0
> 9 0 0 0 0
> 10 0 1 1 1
> > > #--- Función compara parejas de columnas comienzan por mismas 2 letras.
> > *colcompare <- function(df)* {
> +
> + nam_val <- names(df) %>% stri_sub(from = 1, to = 2) %>% unique()
> + res_df <- data.table()
> + for (i in 1:length(nam_val)) {
> + cols_tmp <- nam_val[i]
> + df_tmp <- df %>% select.(starts_with(cols_tmp)) %>%
> + rename.( a = 1) %>%
> + rename.( b = 2) %>%
> + mutate.( c = if_else.( a == 1 | b == 1,...