R/TK.test.R

In DTK: Dunnett-Tukey-Kramer Pairwise Multiple Comparison Test Adjusted for Unequal Variances and Unequal Sample Sizes

TK.test <-
function (x = "data vector", f = "factor vector", a = "alpha level") 
{
    if (a == "alpha level") {
        a = 0.05
    }
    TukeyHSD(aov(x ~ f), conf.level = 1 - a)
}