tests/testsuite/test_pam.R

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

Renv <- new.env(parent = globalenv())
Renv$x <- rbind(cbind(rnorm(10,0,0.5), 
            rnorm(10,0,0.5)),
            cbind(rnorm(10,5,0.5), 
            rnorm(10,5,0.5)),
            cbind(rnorm(10,10,0.5), 
            rnorm(10,10,0.5)),
            cbind(rnorm(10,15,0.5), 
            rnorm(10,15,0.5)))

FLenv <- as.FL(Renv)


test_that("Kmedoids: dimensions of results match",{
  eval_expect_equal({
      pamx <- pam(x,4)
      medoids <- as.data.frame(pamx$medoids)
      attributes(medoids)$row.names <- NULL
      attributes(medoids)$names <- NULL
      id.med <- pamx$id.med
      clust <- pamx$clustering
      isolate <- pamx$isolation
      clusinfo <- as.data.frame(pamx$clusinfo)
      names(clusinfo) <- NULL
  },Renv,FLenv,
  expectation=c("medoids","id.med",
                "clust","isolate","clusinfo"),
  noexpectation = c("pamx"),
  check.attributes=FALSE)
})


test_that("Kmedoids: dimensions of silinfo_width match",{
  eval_expect_equal({
      pamx <- pam(x,4)
      
      silinfo_width <- dim(pamx$silinfo$widths)
  },Renv,FLenv,
  expectation=c("medoids","id.med",
                "clust","isolate","clusinfo",
                "silinfo_width"),
  noexpectation = c("pamx"))
  FLexpect_equal(dim(FLenv$pamx$diss),
                 c(nrow(FLenv$x),nrow(FLenv$x)))
})