R/sum_sq_lt.R

Defines functions sum_sq_lt

#' Sum of squares from lower triangle 

sum_sq_lt <- function(sq_mat) {
  
  lt_vec <- sq_mat[lower.tri(sq_mat)]

  sum_sq_lt <- sum(lt_vec^2) 
  
  return(sum_sq_lt)

}
tmatta/glvmfit documentation built on Oct. 17, 2021, 12:01 a.m.