First commit

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

# ...
gdet <- function(M)
{
    if (is.matrix(M))
        return (det(M))
    return (M[1]) #numeric, double
}