#' Determinant of a matrix
#'
#' @export
La.det <- function(A) {
    storage.mode(A) <- "double"
    .Call("C_det", A, PACKAGE = "tensorPredictors")
}