Log In Sign Up
Models:
Alyssa Salazar
AlyssaS/
MOVICS
0
Downloads: 1
[494cbf]: / tests / testthat.R

Download this file

10 lines (8 with data), 239 Bytes 

1
2
3
4
5
6
7
8
9
library(testthat)

library(MOVICS)

library(InterSIM)



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

  sim <- InterSIM(n.sample = 50)

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

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

})