# NOT RUN {
# Make some toy data
ns <- c(3, 4) # Two classes with sample size 3 and 4
Slist <- createS(ns, p = 3) # Generate two 3-dimensional covariance matrices
Slist
# Different choices:
default.target.fused(Slist, ns)
default.target.fused(Slist, ns, by = seq_along(Slist)) # The same as before
default.target.fused(Slist, ns, type = "Null")
default.target.fused(Slist, ns, type = "DAPV")
default.target.fused(Slist, ns, type = "DAPV", by = rep(1, length(Slist)))
# Make some (more) toy data
ns <- c(3, 4, 6, 7) # Two classes with sample size 3 and 4
Slist <- createS(ns, p = 2) # Generate four 2-dimensional covariance matrices
# Use the same target in class 1 and 2, but another in class 3 and 4:
default.target.fused(Slist, ns, by = c("A", "A", "B", "B"))
# }
Run the code above in your browser using DataLab