R/kdtree_build.R

In GregoireButruille/FishNmix2: Assess fish abiotic compatibility

#' Title
#'
#' @param data
#' @param verbose
#'
#' @return
#' @export
#'
#' @examples
kdtree_build <- function(data, verbose=TRUE)
{
  if (any(class(data) == "data.frame"))
  {
    data <- as.matrix(data)
  }
  if (any(class(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")
  }
}
############################################################################