# NOT RUN {
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))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab