update r package

Zilong-Li · Jan 25, 2024 · c043e96 · c043e96
1 parent 462d0e1
commit c043e96
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/src/parse-phaseless.cpp b/src/parse-phaseless.cpp
@@ -145,7 +145,14 @@ List parse_impute_opt(std::string filename) {
                         Named("chunksize") = genome->chunksize,
                         Named("nsamples") = genome->nsamples,
                         Named("nsnps") = genome->nsnps,
-                        Named("nchunks") = genome->nchunks);
+                        Named("nchunks") = genome->nchunks,
+                        Named("gls") = genome->gls,
+                        Named("pos") = genome->pos,
+                        Named("PI") = genome->PI,
+                        Named("F") = genome->F,
+                        Named("R") = genome->R,
+                        Named("CF") = genome->GammaAE
+                        );
 
 }
 

diff --git a/tests/test-phaseless.cpp b/tests/test-phaseless.cpp
@@ -48,7 +48,7 @@ TEST_CASE("phaseless naive vs dump dataset 1", "[test-phaseless]")
         for(int i = 0; i < genome->nsamples; i++) llike2 += admixer2.runNativeWithBigAss(i, genome);
         admixer2.updateIteration();
         cerr << std::setprecision(6) << "llike2: " << llike2 << "\tllike1: " << llike1 << "\n";
-        REQUIRE(abs(llike1 - llike2) < 1e-10);
+        REQUIRE(abs(llike1 - llike2) < 1e-9);
     }
     REQUIRE(((admixer1.Q - admixer2.Q).abs() < 1e-6).all());
 }