R/get.loadings.R

In JMMaronge/medals: Performs Memory Efficient Decomposition for Analysis of Local neighborhood moments for Segmentation

#' A function to create the loadings matrix for  MEDALS.
#'
#' This function allows you to create loadings matrix for PC scores in the MEDALS pipeline. T
#' @param cov.mat The crossproduct matrix ($X^TX$) for decomposition to get loadings. Should be the output of imaging.cp.mat()
#' @export
get.loadings <- function(cov.mat){
  loadings <- svd(cov.mat, nu = 0)
  v = loadings$v
  return(v)
}