[adegenet-commits] r445 - in pkg/misc: . bug-report.1.2-3.01

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

Author: jombart
Date: 2009-10-13 16:06:31 +0200 (Tue, 13 Oct 2009)
New Revision: 445

Added:
   pkg/misc/bug-report.1.2-3.01/
   pkg/misc/bug-report.1.2-3.01/df2genindbug.R
Log:
bug in the current version of df2genind (number of loci miss-inferred).


Added: pkg/misc/bug-report.1.2-3.01/df2genindbug.R
===================================================================
--- pkg/misc/bug-report.1.2-3.01/df2genindbug.R	                        (rev 0)
+++ pkg/misc/bug-report.1.2-3.01/df2genindbug.R	2009-10-13 14:06:31 UTC (rev 445)
@@ -0,0 +1,12 @@
+df=matrix(c('a/b','a/a','a/b','x/x','NA','x/y'),nrow=2)
+colnames(df)=paste("locus",1:3,sep=".")
+rownames(df)=1:2
+df # looks ok
+
+toto=df2genind(df, sep="/", ploidy=2)
+toto
+toto at tab # only one locus !?!
+
+
+## and then this is wrong too:
+propShared(toto)