removing MCMCpack from test

jsilve24 · May 29, 2024 · b37a67a · b37a67a
1 parent 1a35d97
commit b37a67a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-pibble.R b/tests/testthat/test-pibble.R
@@ -103,7 +103,7 @@ uncollapse <- function(eta, X, upsilon, Theta, Xi, Gamma){
     EN <- eta[,,i] - LambdaN %*% X
     Delta <- LambdaN - Theta
     XiN <- Xi + tcrossprod(EN) + Delta %*% solve(Gamma) %*% t(Delta)
-    Sigma[,,i] <- MCMCpack::riwish(upsilonN, XiN)#solve(rWishart(1, upsilonN, XiN)[,,1])
+    Sigma[,,i] <- solve(rWishart(1, upsilonN, solve(XiN))[,,1])
     Z <- matrix(rnorm((D-1)*Q), D-1, Q)
     Lambda[,,i] <- LambdaN + t(chol(Sigma[,,i]))%*%Z%*%chol(GammaN)
   }