R version 4.5.0 RC (2025-04-04 r88113 ucrt) -- "How About a Twenty-Six"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(testthat)
> library(pseval)
> 
> test_check("pseval")
Augmented data frame:  200  obs. by  6  variables. 
  Z Y  S.1    S.0 cdfweights    BIP
1 1 0 2.24     NA          1  1.383
2 0 0   NA  0.171          1  0.126
3 0 0   NA  1.701          1  1.903
4 1 0 2.39     NA          1  1.508
5 0 1   NA -1.987          1 -1.827
6 0 0   NA  2.000          1  2.046

Empirical TE:  0.53 

Mapped variables: 
	 Z  ->  Z 
	 Y  ->  Y.obs 
	 S  ->  S.obs 
	 BIP  ->  BIP 

Integration models: 
	 integration model for  S.1 :
		 integrate_parametric(formula = S.1 ~ BIP )

Risk models: 
	 risk_binary(D = 10 )

Estimated parameters:
(Intercept)         S.1           Z       S.1:Z 
    -0.8867     -0.1756      0.0174     -1.6228 
	Convergence:  TRUE 

Bootstrap replicates:
            Estimate boot.se lower.CL.2.5. upper.CL.97.5.  p.value
(Intercept)  -0.8867   0.337        -1.611         -0.249 0.008416
S.1          -0.1756   0.225        -0.511          0.285 0.435727
Z             0.0174   0.492        -0.802          0.867 0.971757
S.1:Z        -1.6228   0.489        -2.577         -0.932 0.000894

	 Out of 50 bootstraps,  50 converged ( 100 %)

	 Test for wide effect modification on 1 degree of freedom. 2-sided p value  = 9e-04 

Treatment Efficacy: 
empirical  marginal     model 
    0.530     0.530     0.418 
	Model-based average TE is -21.0 % different from the empirical and -21.0 % different from the marginal.
[ FAIL 0 | WARN 2 | SKIP 0 | PASS 43 ]

[ FAIL 0 | WARN 2 | SKIP 0 | PASS 43 ]
> 
> proc.time()
   user  system elapsed 
  72.81    3.73   76.67