about summary refs log tree commit diff
path: root/test/test_suite.sh
diff options
context:
space:
mode:
authorPjotr Prins2017-10-05 11:10:57 +0000
committerPjotr Prins2017-10-05 11:12:30 +0000
commitd672c81f7963180c4979aecf93b624d12d3f2ed2 (patch)
tree1db846138215f05da0b5c98da964aea72920dc26 /test/test_suite.sh
parent7b09fe8507962f20ccb1650b86408d40db1a0052 (diff)
downloadpangemma-d672c81f7963180c4979aecf93b624d12d3f2ed2.tar.gz
Addresses
  https://github.com/genetics-statistics/GEMMA/issues/81
Diffstat (limited to 'test/test_suite.sh')
-rwxr-xr-xtest/test_suite.sh31
1 files changed, 4 insertions, 27 deletions
diff --git a/test/test_suite.sh b/test/test_suite.sh
index fa66b7a..350fc27 100755
--- a/test/test_suite.sh
+++ b/test/test_suite.sh
@@ -30,7 +30,7 @@ testUnivariateLinearMixedModelFullLOCO1() {
     assertEquals 0 $?
     outfn=output/$outn.assoc.txt
     assertEquals "951" `wc -l < $outfn`
-    assertEquals "267509369.79" `perl -nle 'foreach $x (split(/\s+/,$_)) { $sum += sprintf("%.2f",(substr($x,,0,6))) } END { printf "%.2f",$sum }' $outfn`
+    assertEquals "267507851.98" `perl -nle 'foreach $x (split(/\s+/,$_)) { $sum += sprintf("%.2f",(substr($x,,0,6))) } END { printf "%.2f",$sum }' $outfn`
 }
 
 testCenteredRelatednessMatrixK() {
@@ -58,8 +58,8 @@ testUnivariateLinearMixedModel() {
     grep "total computation time" < output/mouse_hs1940_CD8_lmm.log.txt
     assertEquals 0 $?
     outfn=output/mouse_hs1940_CD8_lmm.assoc.txt
-    assertEquals "118459" `wc -w < $outfn`
-    assertEquals "4038557453.62" `perl -nle 'foreach $x (split(/\s+/,$_)) { $sum += sprintf("%.2f",(substr($x,,0,6))) } END { printf "%.2f",$sum }' $outfn`
+    assertEquals "129228" `wc -w < $outfn`
+    assertEquals "4038540440.86" `perl -nle 'foreach $x (split(/\s+/,$_)) { $sum += sprintf("%.2f",(substr($x,,0,6))) } END { printf "%.2f",$sum }' $outfn`
 }
 
 testMultivariateLinearMixedModel() {
@@ -105,30 +105,7 @@ testPlinkMultivariateLinearMixedModel() {
     assertEquals 0 $?
     outfn=output/$testname.assoc.txt
     assertEquals "223243" `wc -l < $outfn`
-    assertEquals "89756559859.06" `perl -nle 'foreach $x (split(/\s+/,$_)) { $sum += sprintf("%.2f",(substr($x,,0,6))) } END { printf "%.2f",$sum }' $outfn`
-}
-
-testPlinkMultivariateLinearMixedModelMultiplePhenotypes_Issue58() {
-    # n=2 is original pheno in fam file
-    # n=1 is causal1
-    # n=3..12 is causal2
-    # n=13..22 is causal3
-    # -n 1 2 3 15 is independent
-    testname=testPlinkMultivariateLinearMixedModelMultiplePhenotypes
-    datadir=../example
-    $gemma -bfile $datadir/HLC \
-           -p $datadir/HLC.simu.pheno.txt \
-           -k output/testPlinkStandardRelatednessMatrixK.sXX.txt \
-           -lmm 1 \
-           -maf 0.1 \
-           -n 1 2 3 15 \
-           -c $datadir/HLC_covariates.txt \
-           -debug \
-           -o $testname
-    assertEquals 0 $?
-    outfn=output/$testname.assoc.txt
-    assertEquals "223243" `wc -l < $outfn`
-    assertEquals "89756559859.06" `perl -nle 'foreach $x (split(/\s+/,$_)) { $sum += sprintf("%.2f",(substr($x,,0,6))) } END { printf "%.2f",$sum }' $outfn`
+    assertEquals "89757159113.77" `perl -nle 'foreach $x (split(/\s+/,$_)) { $sum += sprintf("%.2f",(substr($x,,0,6))) } END { printf "%.2f",$sum }' $outfn`
 }
 
 shunit2=`which shunit2`