[Genabel-commits] r2000 - pkg/GenABEL/R

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

Author: nd_0001
Date: 2015-07-08 17:44:48 +0200 (Wed, 08 Jul 2015)
New Revision: 2000

Modified:
   pkg/GenABEL/R/VIFGC_ovdom.R
Log:
Minor changes in GC functions, need to rewrite. Also catched 2000th revision=)

Modified: pkg/GenABEL/R/VIFGC_ovdom.R
===================================================================
--- pkg/GenABEL/R/VIFGC_ovdom.R	2015-07-08 07:36:58 UTC (rev 1999)
+++ pkg/GenABEL/R/VIFGC_ovdom.R	2015-07-08 15:44:48 UTC (rev 2000)
@@ -136,8 +136,9 @@
     if (ntp < 1) 
         stop("no valid measurments")
     if (ntp == 1) {
-        warning(paste("One measurment, Lambda = 1 returned"))
-        return(list(estimate = 1, se = 999.99))
+        stop("Only one measurment. Stoped.")
+        #warning(paste("One measurment, Lambda = 1 returned"))
+        #return(list(estimate = 1, se = 999.99))
     }
     if (ntp < 10) 
         warning(paste("number of points is too small:", ntp))