tests/testthat/test.new_dist2.R
In jhoffjann/nmmso.R: R Implementation of the NMMSO algorithm
context("new_dist2")
test_that("new_dist2", {
x = matrix(c(1, 2, 3, 4, 5, 6, 7, 8 ,9), 3)
c = matrix(c(9, 8, 7, 6, 5, 4, 3, 2, 1), 3)
r = matrix(c(84, 75, 72, 75, 72, 75, 72, 75, 84), 3)
expect_true(all.equal(new_dist2(x, c), r))
})
jhoffjann/nmmso.R documentation built on May 19, 2019, 9:26 a.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.
context("new_dist2")
test_that("new_dist2", {
x = matrix(c(1, 2, 3, 4, 5, 6, 7, 8 ,9), 3)
c = matrix(c(9, 8, 7, 6, 5, 4, 3, 2, 1), 3)
r = matrix(c(84, 75, 72, 75, 72, 75, 72, 75, 84), 3)
expect_true(all.equal(new_dist2(x, c), r))
})
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.