Nothing
library(tidyverse)
library(caret)
library(SSLR)
library(tidymodels)
data <- iris
set.seed(1)
#% LABELED
cls <- which(colnames(iris) == "Species")
labeled.index <- createDataPartition(data$Species, p = .2, list = FALSE)
data[-labeled.index,cls] <- NA
m <- lcvqeSSLR(max_iter = 1) %>% fit(Species ~ ., data)
#Get labels (assing clusters), type = "raw" return factor
labels <- m %>% cluster_labels()
print(labels)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.