[adegenet-commits] r281 - pkg/R

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

Author: jombart
Date: 2009-04-01 15:26:56 +0200 (Wed, 01 Apr 2009)
New Revision: 281

Modified:
   pkg/R/handling.R
Log:
selPopSize ok


Modified: pkg/R/handling.R
===================================================================
--- pkg/R/handling.R	2009-04-01 12:27:43 UTC (rev 280)
+++ pkg/R/handling.R	2009-04-01 13:26:56 UTC (rev 281)
@@ -504,13 +504,13 @@
 #############
 # selpopsize
 #############
-setGeneric("selpopsize", function(x, ...) standardGeneric("selpopsize"))
+setGeneric("selPopSize", function(x, ...) standardGeneric("selPopSize"))
 
 ## genind method ##
-setMethod("selpopsize", signature(x="genind"), function(x,pop=NULL,nMin=10){
+setMethod("selPopSize", signature(x="genind"), function(x,pop=NULL,nMin=10){
 
     ## misc checks
-    checkType(x)
+    ## checkType(x)
     if(!is.genind(x)) stop("x is not a valid genind object")
     if(is.null(pop)) { # pop taken from @pop
         if(is.null(x at pop)) stop("pop not provided and x at pop is empty")
@@ -530,7 +530,7 @@
     pop(res) <- pop[toKeep]
 
     return(res)
-}) # end selpop
+}) # end selPopSize