R/sum_sq_lt.R

Defines functions sum_sq_lt

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)

}

Try the glvmfit package in your browser

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

glvmfit documentation built on Aug. 6, 2021, 9:07 a.m.