if (FALSE) {
apply_pb(anscombe, 2, sd, na.rm = TRUE)
# larger dataset
df <- data.frame(rnorm(30000), rnorm(30000))
head(apply_pb(df, 1, sd))
# performance comparison
df <- data.frame(rnorm(90000), rnorm(90000))
system.time(apply(df, 1, sd))
system.time(apply_pb(df, 1, sd))
}
Run the code above in your browser using DataLab