[Genabel-commits] r2074 - pkg/MultiABEL/src

[noreply at r-forge.r-project.org]

Author: shenxia
Date: 2017-06-15 19:03:58 +0200 (Thu, 15 Jun 2017)
New Revision: 2074

Modified:
   pkg/MultiABEL/src/MultiSummaryLoop.f90
   pkg/MultiABEL/src/MultiSummaryLoopInbred.f90
   pkg/MultiABEL/src/MultiSummaryLoopPrecise.f90
Log:
Fixed CRAN zg = beta1*vg bug

Modified: pkg/MultiABEL/src/MultiSummaryLoop.f90
===================================================================
--- pkg/MultiABEL/src/MultiSummaryLoop.f90	2017-06-15 15:54:58 UTC (rev 2073)
+++ pkg/MultiABEL/src/MultiSummaryLoop.f90	2017-06-15 17:03:58 UTC (rev 2074)
@@ -51,7 +51,7 @@
            cor1(1:(i - 1),1) = R(1:(i - 1),i)
            cor1(i:(m - 1),1) = R((i + 1):m,i) 
         end if
-        zg = beta1*vg
+        zg = beta*vg
         zz = matmul(matmul(sdY1, R1), sdY1)
         tmp = sdY(i,i)
         do ii = 1, m - 1

Modified: pkg/MultiABEL/src/MultiSummaryLoopInbred.f90
===================================================================
--- pkg/MultiABEL/src/MultiSummaryLoopInbred.f90	2017-06-15 15:54:58 UTC (rev 2073)
+++ pkg/MultiABEL/src/MultiSummaryLoopInbred.f90	2017-06-15 17:03:58 UTC (rev 2074)
@@ -51,7 +51,7 @@
            cor1(1:(i - 1),1) = R(1:(i - 1),i)
            cor1(i:(m - 1),1) = R((i + 1):m,i) 
         end if
-        zg = beta1*vg
+        zg = beta*vg
         zz = matmul(matmul(sdY1, R1), sdY1)
         tmp = sdY(i,i)
         do ii = 1, m - 1

Modified: pkg/MultiABEL/src/MultiSummaryLoopPrecise.f90
===================================================================
--- pkg/MultiABEL/src/MultiSummaryLoopPrecise.f90	2017-06-15 15:54:58 UTC (rev 2073)
+++ pkg/MultiABEL/src/MultiSummaryLoopPrecise.f90	2017-06-15 17:03:58 UTC (rev 2074)
@@ -51,7 +51,7 @@
            cor1(1:(i - 1),1) = R(1:(i - 1),i)
            cor1(i:(m - 1),1) = R((i + 1):m,i) 
         end if
-        zg = beta1*vg
+        zg = beta*vg
         zz = matmul(matmul(sdY1, R1), sdY1)
         tmp = sdY(i,i)
         do ii = 1, m - 1