[Mboost-commits] r834 - pkg/mboostPatch/R

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

Author: hofner
Date: 2015-02-13 09:47:59 +0100 (Fri, 13 Feb 2015)
New Revision: 834

Modified:
   pkg/mboostPatch/R/family.R
   pkg/mboostPatch/R/methods.R
Log:
fixed type and removed unnecessary comment

Modified: pkg/mboostPatch/R/family.R
===================================================================
--- pkg/mboostPatch/R/family.R	2015-02-12 16:10:40 UTC (rev 833)
+++ pkg/mboostPatch/R/family.R	2015-02-13 08:47:59 UTC (rev 834)
@@ -71,8 +71,7 @@
            check_y = function(y) {
                if (!is.numeric(y) || !is.null(dim(y)))
                    stop("response is not a numeric vector but ",
-                        sQuote("family = GaussReg()"))
-               y
+                        sQuote("family = Gaussian()")) y
            },
            name = "Squared Error (Regression)",
            fW = function(f) return(rep(1, length = length(f))),

Modified: pkg/mboostPatch/R/methods.R
===================================================================
--- pkg/mboostPatch/R/methods.R	2015-02-12 16:10:40 UTC (rev 833)
+++ pkg/mboostPatch/R/methods.R	2015-02-13 08:47:59 UTC (rev 834)
@@ -444,9 +444,6 @@
     ret[which]
 }
 
-#selected <- function(object, ...)
-#    UseMethod("selected", object)
-
 selected.mboost <- function(object, ...)
     object$xselect()