[valse.git] / pkg / R / util.R

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