R/gl.unequal.R

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

gl.unequal <-
function (n = "number of levels", k = "numeric vector of sample sizes") 
{
    out <- numeric()
    for (i in 1:n) {
        out <- append(out, rep(i, length.out = k[i]))
    }
    return(factor(out))
}