Nothing

```
#' @export
#' @importFrom Matrix t
buildVptree <- function(X, transposed=FALSE, distance=c("Euclidean", "Manhattan"))
# Builds an VP tree index.
#
# written by Aaron Lun
# created 2 December 2018
{
if (transposed) {
tX <- X
} else {
tX <- t(X)
}
if (!is.matrix(tX)) {
tX <- as.matrix(tX)
}
distance <- match.arg(distance)
out <- build_vptree(tX, distance)
ordering <- out[[1]]
VptreeIndex(data=tX[,ordering,drop=FALSE], order=ordering, nodes=out[-1], NAMES=colnames(tX), distance=distance)
}
```

**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.