bug in test

kasselhingee · Sep 18, 2024 · 98accb3 · 98accb3
1 parent 9f62d07
commit 98accb3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-customll.R b/tests/testthat/test-customll.R
@@ -1,5 +1,5 @@
 test_that("inlinedirichtape.cpp can generate a working tape", {
-  Rcpp::sourceCpp(system.file("inst/inlinedirichtape.cpp", package = "scorematchingad"))
+  Rcpp::sourceCpp(system.file("inlinedirichtape.cpp", package = "scorematchingad"))
   ptr <- tapedirich(rep(0.2, 5), rep(-0.1, 5))
   newu <- c(0.3, 0.1, rep(0.2, 3))
   newbeta <- c(-0.5, -0.2, rep(-0.1, 3))