a b/tests/testthat.R 

  1
  
library(testthat)





  
  

  2
  
library(MOVICS)





  
  

  3
  
library(InterSIM)





  
  

  4
  





  
  

  5
  
test_that("get optimal cluster number from simulated dataset", {





  
  

  6
  
  sim <- InterSIM(n.sample = 50)





  
  

  7
  
  simdat <- lapply(sim[1:3],t)





  
  

  8
  
  expect_equal(getClustNum(data = simdat)$N.clust, 3)





  
  

  9
  
})