Adjustments for CRAN upload
[valse.git] / pkg / R / util.R
CommitLineData
0ba1b11c 1# Compute the determinant of a matrix, which can be 1x1 (scalar)
3453829e
BA
2gdet <- function(M)
3{
0ba1b11c 4 ifelse(is.matrix(M), det(M), M[1])
3453829e 5}