Tag: SAPPLY
Supongamos que este es mi código: library(magrittr) library(dplyr) set.seed(123, kind=”Mersenne-Twister”, normal.kind=”Inversion”) y = runif(20,0,50) simulation <- function(y){ x <- rnorm(length(y),3,0.125) lm(y ~ x) } fit <- lapply(1:10, function(dummy) simulation(y)) coef <- sapply(fit, coef) %>% t() %>% as.data.frame() ¿Cómo puedo recolectar las 10 variables simuladas x generadas por la función simulation . . . Read more
Estoy tratando de solucionar un problema con mis datos y verificar si un cierto nombre aparece en dos columnas diferentes en la misma fila (misma observación): df1 <- data.frame( text1 = c(“John Jay Jakson”, “John Jay Jakson”, “John Jay Jakson”, “John Jack Jakson”), text2 = c(“Jerry Jack Jameson”, “Jerry Jack . . . Read more
Aquí he anidado un bucle y no sé cómo convertirlo en una función ‘apply’. ¿Alguien puede decirme cómo convertir esto en una función ‘apply’? planes_logros <- function(pa_m, pa_q){ if(nrow(pa_m)==0 & nrow(pa_q==0)){ df = data.frame(a = c(“”), b = c(“No Data Available”)) colnames(df)=”” }else{ pa_m = pa_m %>% select(inc, month_year, Plans, . . . Read more
e <<- data.env ## aquí estoy almacenando mi rdata data_frames <- Filter(function(x) is.data.frame(get(x)), ls(envir = e)) ## obteniendo solo los dataframes for(i in data_frames) e[[i]] <<- mytest_function(e[[i]]) ### aquí estoy iterando sobre los dataframes Ahora, ¿cómo puedo convertir el bucle for en una función apply? El bucle lleva mucho tiempo . . . Read more
Tengo un vector de caracteres con nombres de archivos de una carpeta que necesito transformar en rutas de archivos individuales para que cada elemento de la lista tenga la ruta de archivo completa que luego se pueda manipular usando xmlParse. El vector de caracteres se creó utilizando el siguiente código . . . Read more