tests/testsuite/test_FLMatrixREF.R

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

#Function not in R
#FLMatrixREF

flmatrix <- as.FLMatrix(matrix(rnorm(80),10,8))
flresult <- FLMatrixREF(flmatrix)
flresult <- as.matrix(flresult)

test_that("testing REF conditions ",{
  vidx <- apply(flresult,1,function(x){
                vidx1 <- suppressWarnings({min(which(x==1))})
                if(vidx1 > 1 
                  && !is.infinite(vidx1) 
                  && !all(x[1:vidx1-1]==0))
                stop("error in REF")
                return(vidx1)
          })
  if(!all(vidx==sort(vidx)))
  stop("error in REF")
})

test_that("testing the example written in FLMatrixREF",{
  flmatrix <- FLMatrix(getTestTableName("tblMatrixMulti"), 
                        5,
                        "MATRIX_ID",
                        "ROW_ID",
                        "COL_ID",
                        "CELL_VAL",
                        dims= c(5,5))
  resultFLMatrix <- FLMatrixREF(flmatrix)
  resultMatrix <- as.matrix(resultFLMatrix)
})


## Testing FLMatrixREF
test_that("check FLMatrixREF",
{
    resultFLMatrix <- FLMatrixREF(initF.FLMatrix(n=5,isSquare=TRUE)$FL)
    resultMatrix <- as.matrix(resultFLMatrix)
})