[Analogue-commits] r321 - pkg/R

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

Author: gsimpson
Date: 2013-05-10 21:06:15 +0200 (Fri, 10 May 2013)
New Revision: 321

Modified:
   pkg/R/prcurve.R
Log:
add variables names to the smooths component

Modified: pkg/R/prcurve.R
===================================================================
--- pkg/R/prcurve.R	2013-05-09 20:29:06 UTC (rev 320)
+++ pkg/R/prcurve.R	2013-05-10 19:06:15 UTC (rev 321)
@@ -167,6 +167,7 @@
     config$complexity <- complexity
     ## config$fitFUN <- fitFUN
     config$smooths <- smooths
+    names(config$smooths) <- colnames(X)
     config$call <- match.call()
     class(config) <- c("prcurve")
     return(config)