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

7 lines
165 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)),
c("***", "**", "*", ".", " "))
})