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