set.seed(123)
split_indices <- sample(nrow(iris), size = round(0.8 * nrow(iris)), replace = FALSE)
split_indices <- sort(split_indices)
traindata <- iris[split_indices,]
testdata <- iris[-split_indices,]
MDA <- tda(x = traindata[,1:4], max_k = 2, ID = traindata$Species, trans = FALSE)
pred <- predict(MDA, testdata[,-5]); pred
Run the code above in your browser using DataLab