# \donttest{
# Use only 10% of labels
labeled_idx <- sample(nrow(iris), size = 15)
model <- tl_semisupervised(iris, Species ~ ., labeled_indices = labeled_idx,
cluster_method = "kmeans", supervised_method = "logistic")
# }
Run the code above in your browser using DataLab