kdtree_build <- function(data, verbose=TRUE)
{
if (any(inherits(data,"data.frame")))
{
data <- as.matrix(data)
}
if (any(inherits(data,"matrix")))
{
if (verbose==TRUE)
{
cat("\nBuilding tree... \n")
}
kdt <- kdtree_build_intl(t(data),nrow(data),ncol(data))
if (verbose==TRUE)
{
cat("done.\n")
}
return(kdt)
}
else
{
stop("Input data not a matrix or data frame")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.