Merge pull request #106 from twolodzko/master

Update helpers.R -> pinvgamma used directly
greta-dev · Sep 26, 2017 · 419e103 · 419e103
2 parents aa7739c + 7e7b702
commit 419e103
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/tests/testthat/helpers.R b/tests/testthat/helpers.R
@@ -332,8 +332,7 @@ mock_mcmc <- function (n_samples = 1010) {
 
 dinvgamma <- extraDistr::dinvgamma
 qinvgamma <- extraDistr::qinvgamma
-pinvgamma <- function (q, alpha, beta)
-  ifelse(q < 0, 0, extraDistr::pinvgamma(q, alpha, beta))
+pinvgamma <- extraDistr::pinvgamma
 
 dlaplace <- extraDistr::dlaplace
 plaplace <- extraDistr::plaplace