set.seed(123)
# Example 1:
MDA <- tda(x = iris[,1:4], max_k = 2,ID = iris$Species, trans = FALSE)
print(MDA)
summary(MDA)
# Example 2:
LDA <- tda(x = iris[,1:4], max_k = 1, ID = iris$Species, trans = FALSE,
common_sigma = TRUE)
print(LDA)
summary(LDA)
# Example 3:
QDA <- tda(x = iris[,1:4], subgroup = c(1, 1, 1), ID = iris$Species,
trans = FALSE, common_sigma = FALSE)
print(QDA)
summary(QDA)
# Example 4:
TQDA <- tda(x = iris[,1:4], subgroup = c(1, 1, 1), ID = iris$Species,
trans = TRUE, common_sigma = FALSE, common_lambda = TRUE)
print(TQDA)
summary(TQDA)
Run the code above in your browser using DataLab