R Under development (unstable) (2026-03-16 r89642 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2026 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(xtpcaus)
> 
> test_check("xtpcaus")
-----------------------------------------------------------------
Panel Causality Test: PFTY
H0: mvalue does NOT Granger-cause invest
N = 5 panels, T = 20 periods, nboot = 99
-----------------------------------------------------------------
Fisher stat: 5.0086  df: 10  p-value: 0.8906
W-bar:       0.7563
Z-bar:       -0.3853  p-value: 0.7000

Individual results:
  Panel  Lag    Freq     Wald         Boot p-val  
  1      1      1              2.5029   0.2929
  2      1      1              0.0145   0.9697
  3      1      1              0.1074   0.7980
  4      1      1              1.1423   0.3838
  5      1      1              0.0145   0.9394
-----------------------------------------------------------------
*** p<0.01, ** p<0.05, * p<0.10
-----------------------------------------------------------------
Panel Causality Test: PQC
H0: mvalue does NOT Granger-cause invest
N = 5 panels, T = 20 periods, nboot = 99
-----------------------------------------------------------------
Sup-Wald (mvalue => invest): 0.4392
Sup-Wald (invest => mvalue): 5.4955
Optimal lag: 1

  Tau    Wald(mvalue=>invest) p-val      Wald(invest=>mvalue) p-val     
  0.25         0.4392     0.0100*       0.2188     0.0100*
  0.75         0.0150     0.0100*       5.4955     0.0100*
-----------------------------------------------------------------
*** p<0.01, ** p<0.05, * p<0.10
[ FAIL 0 | WARN 0 | SKIP 0 | PASS 20 ]
> 
> proc.time()
   user  system elapsed 
   1.76    0.28    1.98