Defines functions Trace

Documented in Trace

#' @title trace of a matrix
#' @description 
#' To calculate trace
#' @param x a numeric vector
#' @export
#' @keywords internal
Trace <- function(X){
  Y = sum( diag( X %*% t(X)))

Try the multigroup package in your browser

Any scripts or data that you put into this service are public.

multigroup documentation built on March 26, 2020, 5:50 p.m.