tests/testthat/test_dclust.R
In zdebruine/RcppML: Rcpp Machine Learning Library
test_that("Testing RcppML::nmf", {
options(RcppML.threads = 1)
A <- rsparsematrix(100, 1000, 0.1)
m <- dclust(A, min_samples = 100, min_dist = 0)
expect_equal(sum(unlist(lapply(m, function(x) length(x$samples)))) == 1000, TRUE)
})
zdebruine/RcppML documentation built on Sept. 13, 2023, 11:44 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
test_that("Testing RcppML::nmf", {
options(RcppML.threads = 1)
A <- rsparsematrix(100, 1000, 0.1)
m <- dclust(A, min_samples = 100, min_dist = 0)
expect_equal(sum(unlist(lapply(m, function(x) length(x$samples)))) == 1000, TRUE)
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.