Nothing

```
clustVec2partMat <- function(C) {
labels = unique(C[C != 0])
if (length(labels) == 0) {
return(rep(0, length(C)))
}
K = max(labels)
N = length(C)
U = matrix(FALSE, K, N)
for (i in 1:N) {
U[labels[labels == C[i]], i] = TRUE
}
if (sum(rowSums(U) == 0) > 0) {
U = U[ - which(rowSums(U) == 0),]
}
return(U)
}
```

**Any scripts or data that you put into this service are public.**

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.