Nothing
.matrix_to_concepts <- function(M_ext, M_int,
objects, attributes) {
n_concepts <- ncol(M_ext)
L <- list()
for (i in seq(n_concepts)) {
x <- .extract_column(M_ext, i)
s <- .extract_column(M_int, i)
extent <- Set$new(attributes = objects,
M = x)
intent <- Set$new(attributes = attributes,
M = s)
L[[i]] <- Concept$new(extent = extent,
intent = intent)
}
return(L)
}
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.