update the roxygen, better memory control

Author: yukai-yang

R/evaluation.R

@@ -71,17 +71,21 @@
 #'
 #' # bootstrap variants (parallel via future/future.apply; can be slow)
 #'
-#' # optional: temporarily increase the maximum size of exported globals
+#' # Optional: if parallel bootstrap exports a large object, temporarily
+#' # increase the maximum size of exported globals.
 #' old_max <- getOption("PSTR.future.globals.maxSize")
-#' options(PSTR.future.globals.maxSize = 4 * 1024^3)  # 4 GB
-#' on.exit(options(PSTR.future.globals.maxSize = old_max), add = TRUE)
+#' options(PSTR.future.globals.maxSize = 4 * 1024^3)  # 4 GB, if needed
 #'
 #' pstr <- WCB_TVTest(use = pstr, iB = 4, parallel = TRUE, cpus = 2)
 #' pstr <- WCB_HETest(
 #'   use = pstr,
 #'   vq = as.matrix(Hansen99[, "vala"])[, 1],
 #'   iB = 4, parallel = TRUE, cpus = 2
 #' )
+#'
+#' # Reset to the previous option value.
+#' options(PSTR.future.globals.maxSize = old_max)
+#' 
 #' print(pstr, mode = "evaluation")
 #' }
 #'

R/specification.R

@@ -181,11 +181,19 @@ sLMTEST <- function(iT, iN, vU, mX, mW, mM, s2, mX2, invXX)
 #' print(pstr, mode = "tests")
 #'
 #' \donttest{
-#' # Bootstrap tests (can be slow)
+#' # Bootstrap tests (can be slow).
+#' # For parallel execution, the exported object may exceed the default
+#' # size limit. If that happens, temporarily increase the limit below.
+#' old_max <- getOption("PSTR.future.globals.maxSize")
+#' options(PSTR.future.globals.maxSize = 4 * 1024^3)  # 4 GB, if needed
+#'
 #' pstr$WCB_LinTest(iB = 200, parallel = TRUE, cpus = 2)
 #' # or
 #' pstr <- WCB_LinTest(use = pstr, iB = 200, parallel = TRUE, cpus = 2)
 #'
+#' # Reset to the previous option value.
+#' options(PSTR.future.globals.maxSize = old_max)
+#'
 #' print(pstr, mode = "tests")
 #' }
 #'

dev/smoke-test.R

@@ -50,8 +50,19 @@ print(pstr0, mode="estimates")
 
 #######
 
-pstr = NewPSTR(Hansen99, dep = 'inva', indep = c(4:16, 17:20), indep_k = c('vala'),
-  tvars = c('vala'), im = 1, iT = 14)
+pstr = NewPSTR( Hansen99, dep = 'inva',
+  indep = c('dt_75', 'dt_76', 'dt_80', 'dt_83', 'dt_84', 'dt_85', 'dt_86',
+            'vala', 'debta', 'cfa', 'sales'),
+  indep_k = c('vala', 'debta', 'cfa', 'sales'),
+  tvars = c('vala'),
+  im = 1, iT = 14)
+pstr
+
 
 LinTest(pstr) 
 print(pstr, mode="tests")
+
+old_max <- getOption("PSTR.future.globals.maxSize")
+options(PSTR.future.globals.maxSize = 4 * 1024^3)
+pstr$WCB_LinTest(iB = 20, parallel = TRUE, cpus = 6)
+options(PSTR.future.globals.maxSize = old_max)