tests/testit/test-independent-gridpts.R

In gsDesign2: Group Sequential Design with Non-Constant Effect

assert("compare gridpts results with gsDesign::normalGrid results", {
  x1 <- gsDesign2:::gridpts(r = 18, mu = 4, a = -Inf, b = Inf)
  x2 <- gsDesign::normalGrid(r = 18, bounds = c(-40, 40), mu = 4, sigma = 1)
  (all.equal(x1$w, x2$gridwgts))
  (all.equal(x1$z, x2$z))

  x1 <- gsDesign2:::gridpts(r = 18, mu = 2, a = -Inf, b = Inf)
  x2 <- gsDesign::normalGrid(r = 18, bounds = c(-40, 40), mu = 2, sigma = 1)
  (all.equal(x1$w, x2$gridwgts))
  (all.equal(x1$z, x2$z))
})