[Robast-commits] r638 - branches/robast-0.9/pkg/RobExtremes/R

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

Author: ruckdeschel
Date: 2013-03-16 13:05:16 +0100 (Sat, 16 Mar 2013)
New Revision: 638

Modified:
   branches/robast-0.9/pkg/RobExtremes/R/interpolLM.R
Log:
RobExtremes: argh -- a typo...

Modified: branches/robast-0.9/pkg/RobExtremes/R/interpolLM.R
===================================================================
--- branches/robast-0.9/pkg/RobExtremes/R/interpolLM.R	2013-03-16 11:25:54 UTC (rev 637)
+++ branches/robast-0.9/pkg/RobExtremes/R/interpolLM.R	2013-03-16 12:05:16 UTC (rev 638)
@@ -40,7 +40,7 @@
                    loRad.s=0.2, up.Rad.s=1,
                    withStartLM = TRUE){
              namF <- gsub("\\.th$","",paste(deparse(substitute(optF))))
-             namF <- gsub(" ", "",namF))
+             namF <- gsub(" ", "",namF)
              to <- gsub("XXXX",gsub(" ","",name(PFam)),
                     gsub("YYYY", namF, "interpolYYYYXXXX.csv"))
              print(to)