# NOT RUN {
# creates a small data frames with 4 subject's scores for 5 measures:
dta <- data.frame(cbind(
DV.1 = c(3., 6., 2., 2., 5.),
DV.2 = c(4., 5., 4., 4., 3.),
DV.3 = c(2., 7., 7., 8., 6.),
DV.4 = c(6., 8., 4., 6., 5.),
grp = c(1., 1., 2., 2., 2.)
))
# performs the test (here rectified df = 1.898876)
WelchDegreeOfFreedom(dta, "DV.1","grp")
# }
Run the code above in your browser using DataLab