essai fusion
[valse.git] / pkg / R / util.R
... / ...
CommitLineData
1# ...
2gdet <- function(M)
3{
4 if (is.matrix(M))
5 return (det(M))
6 return (M[1]) #numeric, double
7}