[Analogue-commits] r340 - pkg/R

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

Author: gsimpson
Date: 2013-07-20 06:51:46 +0200 (Sat, 20 Jul 2013)
New Revision: 340

Modified:
   pkg/R/smoothSpline.R
Log:
minor formatting tweaks

Modified: pkg/R/smoothSpline.R
===================================================================
--- pkg/R/smoothSpline.R	2013-07-19 22:39:58 UTC (rev 339)
+++ pkg/R/smoothSpline.R	2013-07-20 04:51:46 UTC (rev 340)
@@ -1,10 +1,10 @@
-## smoothSpline: smootherFcn supplied to principal.curve
+## smoothSpline: smootherFcn supplied to prcurve
 ## again a wrapper but allow us to specify De'ath's recommended
 ## smoother strategy
-smoothSpline <- function(lambda, x, choose = TRUE,
-                         complexity, ..., penalty = 1,
-                         cv = FALSE, keep.data = FALSE,
-                         control.spar = list(low = 0)) {
+`smoothSpline` <- function(lambda, x, choose = TRUE,
+                           complexity, ..., penalty = 1,
+                           cv = FALSE, keep.data = FALSE,
+                           control.spar = list(low = 0)) {
     ## complexity is the 'df' argument
     ## choose selects whether to use fixed complexity or allow
     ## underlying fitting function to return complexity
@@ -26,5 +26,5 @@
     res <- list(lambda = lambda, x = x, fitted.values = p,
                 complexity = f$df, model = f)
     class(res) <- "prcurveSmoother"
-    return(res)
+    res
 }