[Rcolony-commits] r65 - pkg/R

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

Author: jonesor
Date: 2010-09-24 14:56:36 +0200 (Fri, 24 Sep 2010)
New Revision: 65

Modified:
   pkg/R/build.colony.input.R
Log:
Fixing Bug that Brant Faircloth found in build.colony.input

Modified: pkg/R/build.colony.input.R
===================================================================
--- pkg/R/build.colony.input.R	2009-08-11 09:12:13 UTC (rev 64)
+++ pkg/R/build.colony.input.R	2010-09-24 12:56:36 UTC (rev 65)
@@ -103,11 +103,11 @@
 #######################################################
 cat("Are males monogamous or polygamous?\nSee help for definitions.\n\n")
 switch(menu(c("Males monogamous", "Males polygamous")) + 1,
-       cat("Nothing done\n\n\n"), colonyfile$malepolygamy<-0, colonyfile$malepolygamy<-1)
+       cat("Nothing done\n\n\n"), colonyfile$malepolygamy<-1, colonyfile$malepolygamy<-0)
 
 cat("Are females monogamous or polygamous?\nSee help for definitions.\n\n")
 switch(menu(c("Females monogamous", "Females polygamous")) + 1,
-       cat("Nothing done\n\n\n"), colonyfile$femalepolygamy<-0, colonyfile$femalepolygamy<-1)
+       cat("Nothing done\n\n\n"), colonyfile$femalepolygamy<-1, colonyfile$femalepolygamy<-0)
 write(paste(colonyfile$malepolygamy,colonyfile$femalepolygamy,"! B, 0/1=Polygamy/Monogamy for males & females"),name,append=TRUE)
 
 #######################################################