[Mboost-commits] r837 - in pkg: mboostDevel/R mboostPatch/R

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

Author: hofner
Date: 2015-02-13 14:21:51 +0100 (Fri, 13 Feb 2015)
New Revision: 837

Modified:
   pkg/mboostDevel/R/family.R
   pkg/mboostPatch/R/family.R
Log:
re-added newline which got lost

Modified: pkg/mboostDevel/R/family.R
===================================================================
--- pkg/mboostDevel/R/family.R	2015-02-13 08:54:27 UTC (rev 836)
+++ pkg/mboostDevel/R/family.R	2015-02-13 13:21:51 UTC (rev 837)
@@ -71,7 +71,8 @@
            check_y = function(y) {
                if (!is.numeric(y) || !is.null(dim(y)))
                    stop("response is not a numeric vector but ",
-                        sQuote("family = Gaussian()")) y
+                        sQuote("family = Gaussian()")) 
+		       y
            },
            name = "Squared Error (Regression)",
            fW = function(f) return(rep(1, length = length(f))),

Modified: pkg/mboostPatch/R/family.R
===================================================================
--- pkg/mboostPatch/R/family.R	2015-02-13 08:54:27 UTC (rev 836)
+++ pkg/mboostPatch/R/family.R	2015-02-13 13:21:51 UTC (rev 837)
@@ -71,7 +71,8 @@
            check_y = function(y) {
                if (!is.numeric(y) || !is.null(dim(y)))
                    stop("response is not a numeric vector but ",
-                        sQuote("family = Gaussian()")) y
+                        sQuote("family = Gaussian()")) 
+               y
            },
            name = "Squared Error (Regression)",
            fW = function(f) return(rep(1, length = length(f))),