# NOT RUN {
ns <- c(10, 5, 23)
Ylist <- createS(ns, p = 15, topology = "banded", dataset = TRUE)
# Use the identity target matrix for each class
Tlist <- replicate(length(ns), diag(15), simplify = FALSE)
# Do the test
lam <- matrix(10, 3, 3)
diag(lam) <- 1
ft <- fused.test(Ylist, Tlist, lambda = lam, n.permutations = 500)
# The returned object can alo be plotted via
hist(ft)
# or via the alias
plot(ft)
# }
Run the code above in your browser using DataLab