Datasets
Models
Diff of
/tests/testthat.R
[000000]
..
[494cbf]
Switch to unified view
| 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 | }) |