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

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

Author: ruckdeschel
Date: 2013-03-12 22:03:33 +0100 (Tue, 12 Mar 2013)
New Revision: 626

Modified:
   branches/robast-0.9/pkg/RobExtremes/R/interpolLM.R
Log:
argh: yet another buglet: wrote the wrong name as Gridname

Modified: branches/robast-0.9/pkg/RobExtremes/R/interpolLM.R
===================================================================
--- branches/robast-0.9/pkg/RobExtremes/R/interpolLM.R	2013-03-12 20:46:31 UTC (rev 625)
+++ branches/robast-0.9/pkg/RobExtremes/R/interpolLM.R	2013-03-12 21:03:33 UTC (rev 626)
@@ -31,14 +31,15 @@
 #.svInt <- function(optF = .RMXE.th, xiGrid = getShapeGrid(5, cutoff.at.0=0.005),
                    PFam = GParetoFamily(shape=1,scale=2)){
              namF <- gsub("\\.th$","",paste(deparse(substitute(optF))))
+             namF <- gsub("^\\.(.+)","\\1",namF)
              to <- gsub("XXXX",gsub(" ","",name(PFam)),
-                    gsub("YYYY", gsub("^\\.(.+)","\\1",namF), "interpolYYYYXXXX.csv"))
+                    gsub("YYYY", namF, "interpolYYYYXXXX.csv"))
              print(to)
              ROptEst:::.generateInterpGrid(thGrid = xiGrid,
                   PFam = PFam, toFileCSV = to,
                   getFun =  ROptEst:::.getLMGrid,
                   modifyfct = .modify.xi.PFam.call, optFct = optF,
-                  nameInSysdata = name(PFam), withPrint = TRUE)
+                  nameInSysdata = namF, withPrint = TRUE)
 }