LIvRatio(mtcars$drat, mtcars$wt)
var.test(mtcars$drat, mtcars$wt)
LIvRatio(mtcars$qsec, mtcars$wt)
var.test(mtcars$qsec, mtcars$wt)
LIvtest(sd(mtcars$qsec), nrow(mtcars), sd(mtcars$wt), nrow(mtcars))
Run the code above in your browser using DataLab