tests/testthat/test-snifter.R

In Alanocallaghan/snifter: R wrapper for the python openTSNE library

test_that("fitsne works", {
    set.seed(42)
    m <- matrix(rnorm(2000), ncol = 20) 
    out <- fitsne(m, random_state = NULL)
})

test_that("fitsne works with PCA=TRUE", {
    set.seed(42)
    m <- matrix(rnorm(2000), ncol = 20) 
    out <- fitsne(m, random_state = NULL, pca = TRUE)
})