Tag: LAPPLY
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
Realicé un análisis para algunas operaciones de fusiones y adquisiciones (M&A Deals). Mi resultado actual se ve así: <h2>Deal-Nr | Fecha del evento | Nación objetivo | CAR | SIC</h2> 1 | 01-01-1999 | Italia | 5.1% | 201 2 | 02-01-1999 | Alemania | 2.3% | 202 3 | . . . Read more
Actualmente estoy buscando una forma de simplificar la búsqueda a través de una columna dentro de un dataframe para un vector de valores y reemplazar cada uno de esos valores con otro valor (también contenido en un vector separado). Puedo hacer esto con un bucle for, pero debe ser posible . . . Read more
Tengo un conjunto de datos llamado “drugs” y he creado un conjunto de datos ponderado llamado “weighted_data”. weighted_data <- svydesign(id = ~cluster, strata = ~strata, weights = ~weights, data = drugs, nest = TRUE) Puedo usar esta función para realizar una prueba de chi-cuadrado en todas las variables para ver . . . 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