R/linearAlgebra-pinv_of_dcap-dot.R

In jeksterslab/linearAlgebra: Linear Algebra with R

#' The Moore-Penrose Inverse of the Duplication Matrix - Dot Function
#'
#' @inherit pinv_of_dcap description details references return
#'
#' @param d Numeric matrix.
#'   Duplication matrix.
#'
#' @family Symmetric Functions
#' @keywords linearAlgebra symmetric dot
#' @noRd
.pinv_of_dcap <- function(d) {
  tcrossprod(
    chol2inv(
      chol(
        crossprod(d)
      )
    ),
    d
  )
}