Displaying 3 results from an estimated 3 matches for "beepr".
Did you mean:
beep
2016 Oct 27
3
Encontrar la primera columna no NA
...month == j, j, with = FALSE]
dat[ First_month == j , Value_First_month := x ]
}
dat %>% print
# dat %>% summary
cat( "===============================\n", difftime( Sys.time(), t, units =
"min") , " minutos que cuesta \n===============================\n" )
beepr::beep(3)
# E Primera solucion ------------------------------------------------------
# S comparativa -----------------------------------------------------------
library(microbenchmark)
N <- 1e2
tabla <-
microbenchmark(
JVG_dplyr ={ dat %>%
apply( MARGIN = 1, FUN =...
2016 Oct 27
2
Encontrar la primera columna no NA
...month == j, j, with = FALSE]
dat[ First_month == j , Value_First_month := x ]
}
dat %>% print
# dat %>% summary
cat( "===============================\n", difftime( Sys.time(), t, units =
"min") , " minutos que cuesta \n===============================\n" )
beepr::beep(3)
# E Primera solucion ------------------------------------------------------
# S comparativa -----------------------------------------------------------
library(microbenchmark)
N <- 1e2
tabla <-
microbenchmark(
JVG_dplyr ={ dat %>%
apply( MARGIN = 1, FUN =...
2016 Oct 27
4
Encontrar la primera columna no NA
...gador]
dat3 <- dat2[,list(First_month_Olivier
=variable[index[1]],Value_First_month_Olivier =value[index[1]]),by=jugador]
setkey(x = dat, jugador)
dat0 <- merge( x = dat, y = dat3, all.x = TRUE, all.y = FALSE)
},
times = N, unit = "s")
tabla %>% print
beepr::beep(3)
# Unit: seconds
# expr min lq mean median uq max
neval
# JVG 0.6479002 0.7518933 0.8673007 0.8216553 0.9137195 1.251891 10
# Olivier 2.9568197 3.6663586 3.9364770 3.9069826 4.5619519 4.685842 10
# Olivier2 1.1316970 1.4463621 1.4735507 1...