speedTest.R

# Speed test for standardize
N <- 1e+7
library(data.table)

DT <- data.table::data.table(x = rnorm(N, 1, 2), y = c("a", "b"))
system.time(DT[, x_std_1 := modelStan::standardize(x)])

modelStan::standardizeDT(DT )

tables()
OlivierGranacher/modelStan documentation built on March 25, 2020, 2:35 a.m.