[Rcolony-commits] r87 - pkg/R

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

Author: jonesor
Date: 2012-12-12 12:46:22 +0100 (Wed, 12 Dec 2012)
New Revision: 87

Modified:
   pkg/R/get.colony.data.R
Log:
Removed empty else statemtn

Modified: pkg/R/get.colony.data.R
===================================================================
--- pkg/R/get.colony.data.R	2012-12-12 11:44:50 UTC (rev 86)
+++ pkg/R/get.colony.data.R	2012-12-12 11:46:22 UTC (rev 87)
@@ -58,7 +58,7 @@
     fathers = as.vector(sapply(fathers, function(x){gsub("([A-Za-z0-9]*)([!0-9A-Za-z,/= ]*)", "\\1", x, perl = TRUE)})) #extract names
     mothers = as.vector(sapply(mothers, function(x){gsub("([A-Za-z0-9]*)([!0-9A-Za-z,/= ]*)", "\\1", x, perl = TRUE)})) #extract names
     
-    if(n != length(offspring)){stop("Wrong number of offspring. Check your files.")}else{}
+    if(n != length(offspring)){stop("Wrong number of offspring. Check your files.")}
     
     #Assign numeric codes to fathers and mothers
     mothers = data.frame(motherID=mothers, mother.numID = as.numeric(as.factor(mothers)))