ed10430477d3052496d1e373feffc56c7bb43c01
[valse.git] / 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 }