pkg/R/util.R

   1 # Compute the determinant of a matrix, which can be 1x1 (scalar)
   2 gdet <- function(M)
   3 {
   4     ifelse(is.matrix(M), det(M), M[1])
   5 }