tests/testthat/test-build.R

In popsom: An Efficient Implementation of Kohonen's Self-Organizing Maps (SOMs) with Starburst Visualizations

test_that("map.build constructors work", {
  data(iris)
  df<-subset(iris,select=-Species)
  labels<-subset(iris,select=Species)
  m<-map.build(df,labels,seed=42)

  expect_equal(m$convergence < 0.8,TRUE)
  expect_equal(length(m$unique.centroids)<5,TRUE)
})