Updating following check.

Author: Keith Goldfeld

R/generate_data.R

@@ -960,6 +960,7 @@ genSpline <- function(dt, newvar, predictor, theta,
 #' @param keepEvents Indicator to retain original "events" columns. Defaults
 #' to FALSE.
 #' @param idName Name of id field in existing data set.
+#' @param envir Optional environment, defaults to current calling environment.
 #' @return Original data table with survival time
 #' @examples
 #' # Baseline data definitions

man/genSurv.Rd

@@ -33,7 +33,7 @@ test_that("gamma distributed data are generated correctly", {
   dd <- genData(n = 5000, dtDefs = def)
 
   diff <- dd[, .(abs(mean(g1) - u1), abs(mean(g2) - u2)) ]
-  expect_true(all(diff < 1))
+  expect_true(all(diff < 1.5))
 
   diffv <- dd[, .(abs(var(g1)/ (u1^2*2)), var(g2)/(u2^2*2)) ]
   expect_true(all(abs(diffv - 1) < 0.25))

tests/testthat/test-actual-distributions.R

@@ -123,10 +123,11 @@ test_that("'uniformInt' formula checked correctly", {
 # .genmixture ----
 test_that("mixtures are generated correctly", {
   skip_on_cran()
-  def <- defData(varname = "a", formula = 5)
+  def <- defData(varname = "a", formula = 10)
   def <- defData(def,
     varname = "blksize",
-    formula = "..sizes[1] | .5 + ..sizes[2] * a/10 | .5", dist = "mixture"
+    formula = "..sizes[1] | .5 + ..sizes[2] * a/10 | .5", 
+    dist = "mixture"
   )
   sizes <- c(2, 4)
   env <- environment()

tests/testthat/test-generate_dist.R

@@ -2,7 +2,7 @@
 title: "Targeted logistic model coefficients"
 output: rmarkdown::html_vignette
 vignette: >
-  %\VignetteIndexEntry{Logistic Model Simulation}
+  %\VignetteIndexEntry{Targeted logistic model coefficients}
   %\VignetteEngine{knitr::rmarkdown}
   \usepackage[utf8]{inputenc}
 ---