[Distr-commits] r811 - branches/distr-2.4/pkg/distrEx/R

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

Author: ruckdeschel
Date: 2012-05-20 13:48:59 +0200 (Sun, 20 May 2012)
New Revision: 811

Modified:
   branches/distr-2.4/pkg/distrEx/R/AllGeneric.R
Log:
distrEx: deleted non-needed generics

Modified: branches/distr-2.4/pkg/distrEx/R/AllGeneric.R
===================================================================
--- branches/distr-2.4/pkg/distrEx/R/AllGeneric.R	2012-05-19 16:17:45 UTC (rev 810)
+++ branches/distr-2.4/pkg/distrEx/R/AllGeneric.R	2012-05-20 11:48:59 UTC (rev 811)
@@ -75,11 +75,7 @@
    setGeneric("mad", function(x, ...) standardGeneric("mad"))
 }
 
-if(!isGeneric("kMAD")){ 
-   setGeneric("kMAD", function(x, k, ...) standardGeneric("kMAD"))
-}
 
-
 if(!isGeneric("skewness")){ 
    setGeneric("skewness", function(x, ...) standardGeneric("skewness"))
 }
@@ -100,18 +96,8 @@
    setGeneric("Range", function(object, ...) standardGeneric("Range"))
 }
 
-if(!isGeneric("loc")){
-   setGeneric("loc", function(object) standardGeneric("loc"))
-}
 
-############################################################################
-# Replacement methods
-############################################################################
 
-if(!isGeneric("loc<-")){ 
-   setGeneric("loc<-", function(object, value) standardGeneric("loc<-"))
-}
-
 ############################################################################
 # generics to  "usual"  methods
 ############################################################################