你如何用R的测试来测试助手呢？

Question

有没有人知道如何在testthat包中使用辅助方法进行测试？

例如，我测试一个数组的分布不远离高斯分布：

expect_not_too_ungaussian <- function(x){
    x <- (x - mean(x)) / sd(x)
    test <- ks.test(x, pnorm)
    expect_true(test$p.value > .2)
}

Answer 1

你可以返回一个逻辑并测试它。

expect_not_too_ungaussian <- function(x){
    x <- (x - mean(x)) / sd(x)
    test <- ks.test(x, pnorm)
    return(test$p.value > .2)
}

expect_true(expect_not_too_ungaussian(x))