#'Compute sample distances
#'
#'Computes all SQUARED pairwise distances of data points.
#'
#'@param input_dat: data frame of input data with rows=samles and cols=dimensions
#'
#'@return Dist: a matrix containing all sample distances (square Euclidean)
#'
#'@examples
#' data(scdata.3lines.simulated6genes)
#' Dist <- compute_all_distances(scdata.3lines.simulated6genes)
#'@export
compute_all_distances=function(input_dat)
{
# compute all SQUARED pairwise distances of data points
# and return them as matrix 'Dist'
#
# inputs:
# -input_dat: data frame of input data with rows=samles and cols=dimensions
# return values:
# -Dist: matrix containing sample distances
return(as.matrix(stats::dist(input_dat)^2))#squared Euclidean distance matrix
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.