bump the Rd files as well

Novartis · Nov 21, 2024 · e64f7cf · e64f7cf
1 parent 30521b8
commit e64f7cf
Show file tree

Hide file tree

Showing 4 changed files with 13 additions and 12 deletions.
diff --git a/R/sysdata.rda b/R/sysdata.rda
diff --git a/inst/examples/ess.R b/inst/examples/ess.R
@@ -24,15 +24,14 @@ round(sum(ab_matched))
 ess(bmix, method="morita")
 
 # Predictive consistency of elir
-if(interactive()) {
-    # takes a moment to run
-    n_forward <- 1E2
-    bmixPred <- preddist(bmix, n=n_forward)
-    pred_samp <- rmix(bmixPred, 1E3)
-    pred_ess <- sapply(pred_samp, function(r) ess(postmix(bmix, r=r, n=n_forward), "elir") )
-    ess(bmix, "elir")
-    mean(pred_ess) - n_forward
-}
+n_forward <- 1E1
+bmixPred <- preddist(bmix, n=n_forward)
+pred_samp <- rmix(bmixPred, 1E2)
+# use more samples here for greater accuracy
+# pred_samp <- rmix(bmixPred, 1E3) 
+pred_ess <- sapply(pred_samp, function(r) ess(postmix(bmix, r=r, n=n_forward), "elir") )
+ess(bmix, "elir")
+mean(pred_ess) - n_forward
 
 # Normal mixture example
 nmix <- mixnorm(rob=c(0.5, 0, 2), inf=c(0.5, 3, 4), sigma=10)

diff --git a/man/ess.Rd b/man/ess.Rd
diff --git a/tools/make-ds.R b/tools/make-ds.R
@@ -43,7 +43,7 @@ make_internal_ds <- function() {
     calibration_meta["MD5"]  <- vals["MD5"]
 
     pkg_create_date  <- Sys.time()
-    pkg_sha <- "3377b7c"
+    pkg_sha <- "91e8f18"
 
     if (gsub("\\$", "", pkg_sha) == "Format:%h") {
         pkg_sha <- system("git rev-parse --short HEAD", intern=TRUE)