Running 'testthat.R' [198s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(ltmle)
  > 
  > test_check("ltmle")
  seed set to 1
  Estimator:  tmle 
              Estimate Std. Error CI 2.5% CI 97.5% p-value
  (Intercept)  -3.5478         NA      NA       NA      NA
  time          0.5402         NA      NA       NA      NA
  switch.time       NA         NA      NA       NA      NA
  deterministic.g.function is inconsistent with data.
  After setting Anodes to abar, the data looks like this:
             W A1 A2 Y
  1 -1.2756187  0  1 0
  2  0.7629063  0  1 0
  3 -0.4068151  0  1 1
  4 -1.2083178  0  1 0
  5 -0.4393227  0  1 1
  6 -0.3755807  0  1 1
  Estimator:  tmle 
  Call:
  ltmle(data = data, Anodes = "A", Ynodes = "Y", abar = 1, gbounds = c(0, 
      1), estimate.time = FALSE)
  
     Parameter Estimate:  0.64904 
      Estimated Std Err:  16775 
                p-value:  0.99997 
      95% Conf Interval: (0, 1) 
  
  Error in solve.default(a) : 
    Lapack routine dgesv: system is exactly singular: U[2,2] = 0
  Error in solve.default(a, b) : 
    Lapack routine dgesv: system is exactly singular: U[2,2] = 0
  Call:
  ltmle(data = data.frame(W, A, Y), Anodes = "A", Ynodes = "Y", 
      abar = 1, estimate.time = F)
  
  TMLE Estimate:  0.770777 
  Estimator:  tmle 
  Call:
  ltmle(data = data.frame(W, A, Y), Anodes = "A", Ynodes = "Y", 
      abar = 1, estimate.time = F)
  
     Parameter Estimate:  0.77078 
      Estimated Std Err:  0.12749 
                p-value:  1.405e-06 
      95% Conf Interval: (0.51003, 1) 
  
  Call:
  ltmle(data = data.frame(W, A, Y), Anodes = "A", Ynodes = "Y", 
      abar = list(1, 0), estimate.time = F)
  
  Use summary(...) to get estimates, standard errors, p-values, and confidence intervals for treatment EYd, control EYd, additive effect, relative risk, and odds ratio.
  Estimator:  tmle 
  Call:
  ltmle(data = data.frame(W, A, Y), Anodes = "A", Ynodes = "Y", 
      abar = list(1, 0), estimate.time = F)
  
  Treatment Estimate:
     Parameter Estimate:  0.77078 
      Estimated Std Err:  0.12749 
                p-value:  1.405e-06 
      95% Conf Interval: (0.51003, 1) 
  
  Control Estimate:
     Parameter Estimate:  0.53582 
      Estimated Std Err:  0.12121 
                p-value:  0.00012644 
      95% Conf Interval: (0.28792, 0.78373) 
  
  Additive Treatment Effect:
     Parameter Estimate:  0.23496 
      Estimated Std Err:  0.17519 
                p-value:  0.19029 
      95% Conf Interval: (-0.12335, 0.59326) 
  
  Relative Risk:
     Parameter Estimate:  1.4385 
    Est Std Err log(RR):  0.27947 
                p-value:  0.2035 
      95% Conf Interval: (0.81221, 2.5477) 
  
  Odds Ratio:
     Parameter Estimate:  2.913 
    Est Std Err log(OR):  0.86607 
                p-value:  0.22692 
      95% Conf Interval: (0.49552, 17.124) 
  
  Call:
  ltmle(data = data.frame(W, A, Y), Anodes = "A", Ynodes = "Y", 
      abar = 1, estimate.time = F)
  
  TMLE Estimate:  0.770777 
  Estimator:  tmle 
  Call:
  ltmle(data = data.frame(W, A, Y), Anodes = "A", Ynodes = "Y", 
      abar = 1, estimate.time = F)
  
     Parameter Estimate:  0.77078 
      Estimated Std Err:  0.12749 
                p-value:  1.405e-06 
      95% Conf Interval: (0.51003, 1) 
  
  Call:
  ltmle(data = data.frame(W, A, Y), Anodes = "A", Ynodes = "Y", 
      abar = list(1, 0), estimate.time = F)
  
  Use summary(...) to get estimates, standard errors, p-values, and confidence intervals for treatment EYd, control EYd, additive effect, relative risk, and odds ratio.
  Estimator:  tmle 
  Call:
  ltmle(data = data.frame(W, A, Y), Anodes = "A", Ynodes = "Y", 
      abar = list(1, 0), estimate.time = F)
  
  Treatment Estimate:
     Parameter Estimate:  0.77078 
      Estimated Std Err:  0.12749 
                p-value:  1.405e-06 
      95% Conf Interval: (0.51003, 1) 
  
  Control Estimate:
     Parameter Estimate:  0.53582 
      Estimated Std Err:  0.12121 
                p-value:  0.00012644 
      95% Conf Interval: (0.28792, 0.78373) 
  
  Additive Treatment Effect:
     Parameter Estimate:  0.23496 
      Estimated Std Err:  0.17519 
                p-value:  0.19029 
      95% Conf Interval: (-0.12335, 0.59326) 
  
  Relative Risk:
     Parameter Estimate:  1.4385 
    Est Std Err log(RR):  0.27947 
                p-value:  0.2035 
      95% Conf Interval: (0.81221, 2.5477) 
  
  Odds Ratio:
     Parameter Estimate:  2.913 
    Est Std Err log(OR):  0.86607 
                p-value:  0.22692 
      95% Conf Interval: (0.49552, 17.124) 
  
  Call:
  ltmle(data = data.frame(W, A, Y), Anodes = "A", Ynodes = "Y", 
      abar = 1, estimate.time = F, gcomp = T)
  
  GCOMP Estimate:  0.7297694 
  Estimator:  gcomp 
  Warning: inference for gcomp is not accurate! It is based on TMLE influence curves.
  Call:
  ltmle(data = data.frame(W, A, Y), Anodes = "A", Ynodes = "Y", 
      abar = 1, estimate.time = F, gcomp = T)
  
     Parameter Estimate:  0.72977 
      Estimated Std Err:  0.13033 
                p-value:  4.8028e-06 
      95% Conf Interval: (0.46322, 0.99632) 
  
  [ FAIL 0 | WARN 151 | SKIP 6 | PASS 167 ]
  
  ══ Skipped tests (6) ═══════════════════════════════════════════════════════════
  • On CRAN (4): 'test-(init).R:5:3', 'test-EstimateVariance.R:4:3',
    'test-Weights.R:73:3', 'test-random.R:7:3'
  • empty test (2): 'test-AbarAndRegimes.R:84:1', 'test-print.R:3:1'
  
  [ FAIL 0 | WARN 151 | SKIP 6 | PASS 167 ]
  > 
  > proc.time()
     user  system elapsed 
    26.51    1.59   28.06