[adegenet-commits] r648 - in pkg: R man

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

Author: jombart
Date: 2010-07-14 11:13:53 +0200 (Wed, 14 Jul 2010)
New Revision: 648

Modified:
   pkg/R/basicMethods.R
   pkg/man/haploGen.Rd
Log:
Surprise: summary issue's back with new R version.
On the desktop.
Fck.


Modified: pkg/R/basicMethods.R
===================================================================
--- pkg/R/basicMethods.R	2010-07-12 09:24:14 UTC (rev 647)
+++ pkg/R/basicMethods.R	2010-07-14 09:13:53 UTC (rev 648)
@@ -266,9 +266,9 @@
 ############################
 # Method summary for genind
 ############################
-## if(!isGeneric("summary")){
-##     setGeneric("summary", function(object, ...) standardGeneric("summary"))
-## }
+if(!isGeneric("summary")){
+    setGeneric("summary", function(object, ...) standardGeneric("summary"))
+}
 setMethod ("summary", signature(object="genind"), function(object, ...){
   x <- object
   if(!is.genind(x)) stop("Provided object is not a valid genind.")

Modified: pkg/man/haploGen.Rd
===================================================================
--- pkg/man/haploGen.Rd	2010-07-12 09:24:14 UTC (rev 647)
+++ pkg/man/haploGen.Rd	2010-07-14 09:13:53 UTC (rev 648)
@@ -42,7 +42,7 @@
 
 \method{print}{haploGen}(x, \ldots)
 
-\method{[}{haploGen}(x, i, j, drop=FALSE)
+\method{"["}{haploGen}(x, i, j, drop=FALSE)
 
 \method{labels}{haploGen}(object, \ldots)
 
@@ -56,7 +56,7 @@
 
 sample.haploGen(x, n)
 
-\code{as(object, class)}
+as(object, class)
 }
 \arguments{
   \item{seq.length}{an integer indicating the length of the simulated