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

# ...
gdet <- function(M)
{
	if (is.matrix(M))
		return (det(M))
	return (M[1]) #numeric, double
}
Commit	Line	Data
228ee602	1	# ...
	2	gdet <- function(M)
	3	{
	4	if (is.matrix(M))
	5	return (det(M))
	6	return (M[1]) #numeric, double
	7	}