[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
	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	}