AMR/tests/testthat/test-p.symbol.R

7 lines
180 B
R
Raw Normal View History

2018-07-02 09:34:20 +02:00
context("p.symbol.R")
test_that("P symbol works", {
expect_identical(p.symbol(c(0.001, 0.01, 0.05, 0.1, 1, NA, 3)),
c("***", "**", "*", ".", " ", NA, NA))
2018-07-02 09:34:20 +02:00
})