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