tests/testsuite/test_FLJordan.R

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

###########################
## DBLytix check correctness of decomposition, flm= P*J*PInv
flm<- FLMatrix(getTestTableName("tblMatrixMulti"), 5,
				"MATRIX_ID",
				"ROW_ID",
				"COL_ID",
				"CELL_VAL", 
				dims= c(5,5))

test_that("FLJordan(flm): FLJordan(flm)$P %*% diag(FLJordan(flm)$J) %*% FLJordan(flm)$PInv == flm",{
	FLResultList <- FLJordan(flm)
	e= FLResultList$P %*% diag(FLResultList$J) %*% FLResultList$PInv
	FLexpect_equal(flm,e)
})


############################
## DBLytix Example
test_that("Testing if basic DBLytix FLJordanDecompUdt-FLJordan Example runs from AdapteR",{
	flmatrix <- FLMatrix(getTestTableName("tblMatrixMulti"),5,
						 "MATRIX_ID",
						 "ROW_ID",
						 "COL_ID",
						 "CELL_VAL",
						 dims=c(5,5))
	resultList <- FLJordan(flmatrix)
	JMatrix <- as.matrix(resultList$J)
	PMatrix <- as.matrix(resultList$P)
	PInvMatrix <- as.matrix(resultList$PInv)
})