R/FLDet.R

In Fuzzy-Logix/AdapteR: Converts R syntax to SQL to provide fast analytics using in-database C++ library DB Lytix.

#' @include FLMatrix.R
NULL

#' Determinant of a Matrix.
#'
#' \code{det} computes the determinant of FLMatrix objects.
#'
#' @param object is a FLMatrix object
#' @param ... any additional arguments
#' @section Constraints:
#' Input can only be a square matrix (n x n) with maximum dimension limitations
#' of (1000 x 1000).
#' @return \code{det} returns determinant as a R vector
#' which replicates the equivalent R vector output.
#' @examples
#' flmatrix <- FLMatrix(getTestTableName("tblMatrixMulti"), 5,"MATRIX_ID","ROW_ID",
#' "COL_ID","CELL_VAL", dims= c(5,5))
#' resultFLDetValue <- det(flmatrix)
#' @seealso \code{\link[base]{det}} for corresponding R function reference.
#' @export
det <- function (object, ...){
  UseMethod("det", object)
}

#' @export
det.default <- base::det

#' @export
det.FLMatrix<-function(object,...)
{
	# connection<-getFLConnection(object)
	# ## flag3Check(connection)

	# sqlstr<-paste0(viewSelectMatrix(object, "a", withName="z"),
 #                   outputSelectMatrix("FLMatrixDetUdt", 
 #                   	viewName="z", 
 #                   	localName="a",
 #                   	outColNames=list("OutputDetVal"))
 #                   )
    sqlstr <- constructMatrixUDTSQL(pObject=object,
                                 pFuncName="FLMatrixDetUdt",
                                 pdims=getDimsSlot(object),
                                 pdimnames=dimnames(object),
                                 pReturnQuery=TRUE
                                 )
    sqlstr <- gsub("'%insertIDhere%'",1,sqlstr)
    sqlstr <- (ensureQuerySize(pResult=sqlstr,
                                pInput=list(object),
                                pOperator="det"))
    vdf <- sqlQuery(connection,sqlstr)
    colnames(vdf) <- tolower(colnames(vdf))
	return(vdf[["outputdetval"]])
}