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