[Raster-commits] r343 - pkg/raster/R

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

Author: rhijmans
Date: 2009-03-12 03:16:55 +0100 (Thu, 12 Mar 2009)
New Revision: 343

Modified:
   pkg/raster/R/median.R
Log:


Modified: pkg/raster/R/median.R
===================================================================
--- pkg/raster/R/median.R	2009-03-11 01:56:31 UTC (rev 342)
+++ pkg/raster/R/median.R	2009-03-12 02:16:55 UTC (rev 343)
@@ -4,21 +4,22 @@
 # Version 0.8
 # Licence GPL v3
 
-setGeneric("median", function(x, ..., na.rm=FALSE)
+setGeneric("median", function(x, na.rm=FALSE)
 	standardGeneric("median"))
 
 
-setMethod('median', signature(x='ANY'), 
-	function(x, ..., na.rm=FALSE){
-		x <- c(x, ...)
-		return(stats::median(x, na.rm=na.rm))
-	}
-)
+#setMethod('median', signature(x='ANY'), 
+#	function(x, ..., na.rm=FALSE){
+#		x <- c(x, ...)
+#		return(stats::median(x, na.rm=na.rm))
+#	}
+#)
 
 
 setMethod("median", signature(x='Raster'),
-	function(x, ..., na.rm=FALSE){
-		rasters <- list(...)
+#	function(x, ..., na.rm=FALSE){
+#		rasters <- list(...)
+	function(x, na.rm=FALSE){
 		if (class(x) == 'RasterLayer') {
 			if (length(rasters)==0) { 
 				return(x) 
@@ -38,4 +39,3 @@
 	}
 )
 
-