tests/testthat/test_rand_init.R

library(uwot)
context("Random initialization")

n_vertices <- 10
res_rand <- rand_init(n_vertices, ndim = 2, verbose = FALSE)

expect_ok_matrix(rand_init(n_vertices, ndim = 2, verbose = FALSE))
expect_ok_matrix(rand_init_lv(n_vertices, ndim = 2, verbose = FALSE))

expect_ok_matrix(rand_init(n_vertices, ndim = 1, verbose = FALSE), nc = 1)
expect_ok_matrix(rand_init_lv(n_vertices, ndim = 1, verbose = FALSE), nc = 1)

Try the uwot package in your browser

Any scripts or data that you put into this service are public.

uwot documentation built on June 22, 2024, 6:58 p.m.