# NOT RUN {
## simple example showing what it does
meanDeviations(1:10)
## example use case, applied to a data.table
d <- as.data.table(iris)
d[, c("BSepal.Length", "WSepal.Length") := meanDeviations(Sepal.Length),
by = Species]
str(d)
# }
Run the code above in your browser using DataLab