mdf <- data.frame(x=rnorm(1e3,
20,
2),
y=rnorm(1e3,
30,
3),
z=rnorm(1e3,
40,
4))
head(mdf)
apply(mdf,
2,
sd)
sd(fdt(mdf))
Run the code above in your browser using DataLab