tests/testthat/test1.R
In kbroman/xiuyuma: DigitsCount
context("digitscount")
test_that("digitscount works for small vectors", {
v<-c(0,0,0,1.2,265.7,345.6,78,89,-91,-90.9,0.1,-0.02)
result<-table(factor(c(1,2,3,7,8,9,9,1,2),levels=1:9))
expect_equal(digitscount(v),result)
})
kbroman/xiuyuma documentation built on May 20, 2019, 8:15 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("digitscount")
test_that("digitscount works for small vectors", {
v<-c(0,0,0,1.2,265.7,345.6,78,89,-91,-90.9,0.1,-0.02)
result<-table(factor(c(1,2,3,7,8,9,9,1,2),levels=1:9))
expect_equal(digitscount(v),result)
})
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.