R Under development (unstable) (2023-10-02 r85253 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2023 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(coloc)
This is coloc version 5.2.3
> 
> test_check("coloc")
PP.H0.abf PP.H1.abf PP.H2.abf PP.H3.abf PP.H4.abf 
 0.038900  0.003260  0.019200  0.000667  0.938000 
[1] "PP abf for shared variant: 93.8%"
PP.H0.abf PP.H1.abf PP.H2.abf PP.H3.abf PP.H4.abf 
 0.024700  0.002070  0.019400  0.000667  0.953000 
[1] "PP abf for shared variant: 95.3%"
PP.H0.abf PP.H1.abf PP.H2.abf PP.H3.abf PP.H4.abf 
  0.03990   0.00326   0.01960   0.00067   0.93700 
[1] "PP abf for shared variant: 93.7%"
PP.H0.abf PP.H1.abf PP.H2.abf PP.H3.abf PP.H4.abf 
  0.02530   0.00207   0.01980   0.00067   0.95200 
[1] "PP abf for shared variant: 95.2%"
PP.H0.abf PP.H1.abf PP.H2.abf PP.H3.abf PP.H4.abf 
 0.038900  0.003260  0.019200  0.000667  0.938000 
[1] "PP abf for shared variant: 93.8%"
PP.H0.abf PP.H1.abf PP.H2.abf PP.H3.abf PP.H4.abf 
 2.63e-96  8.11e-06  3.24e-91  1.00e+00  9.31e-08 
[1] "PP abf for shared variant: 9.31e-06%"
List of 9
 $ beta    : num [1:500] 0.337 0.211 0.257 0.267 0.247 ...
 $ varbeta : num [1:500] 0.01634 0.00532 0.00748 0.01339 0.00664 ...
 $ N       : int 1000
 $ sdY     : num 1.1
 $ type    : chr "quant"
 $ MAF     : num [1:500] 0.031 0.166 0.0925 0.0405 0.118 ...
 $ LD      : num [1:500, 1:500] 1 0.365 0.54 0.851 0.463 ...
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : chr [1:500] "s1" "s2" "s3" "s4" ...
  .. ..$ : chr [1:500] "s1" "s2" "s3" "s4" ...
 $ snp     : chr [1:500] "s1" "s2" "s3" "s4" ...
 $ position: int [1:500] 1 2 3 4 5 6 7 8 9 10 ...
[ FAIL 0 | WARN 0 | SKIP 0 | PASS 33 ]
> 
> proc.time()
   user  system elapsed 
   4.39    0.43    4.81