[Robast-commits] r579 - in branches/robast-0.9/pkg/RobExtremes: R inst/AddMaterial/interpolation

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

Author: ruckdeschel
Date: 2013-01-31 13:51:28 +0100 (Thu, 31 Jan 2013)
New Revision: 579

Modified:
   branches/robast-0.9/pkg/RobExtremes/R/interpolSn.R
   branches/robast-0.9/pkg/RobExtremes/inst/AddMaterial/interpolation/interpolationsmanipulations.R
Log:
RobExtremes: argh: forgot assignment of nE in getSnGrid...

Modified: branches/robast-0.9/pkg/RobExtremes/R/interpolSn.R
===================================================================
--- branches/robast-0.9/pkg/RobExtremes/R/interpolSn.R	2013-01-31 12:39:03 UTC (rev 578)
+++ branches/robast-0.9/pkg/RobExtremes/R/interpolSn.R	2013-01-31 12:51:28 UTC (rev 579)
@@ -94,8 +94,8 @@
              warning("There have been xi-values out of range of the interpolation grid.")
           return(y1)
    }
-   environment(fct) <- new.env()
-   assign("fct0",fct0, envir=environment(fct))
+   environment(fct) <- nE <- new.env()
+   assign("fct0",fct0, envir=nE)
        assign("yM",yM, envir=nE)
        assign("ym",ym, envir=nE)
        assign("dyM",dyM, envir=nE)

Modified: branches/robast-0.9/pkg/RobExtremes/inst/AddMaterial/interpolation/interpolationsmanipulations.R
===================================================================
--- branches/robast-0.9/pkg/RobExtremes/inst/AddMaterial/interpolation/interpolationsmanipulations.R	2013-01-31 12:39:03 UTC (rev 578)
+++ branches/robast-0.9/pkg/RobExtremes/inst/AddMaterial/interpolation/interpolationsmanipulations.R	2013-01-31 12:51:28 UTC (rev 579)
@@ -118,6 +118,7 @@
 #fn2=file.path(.myFoldera,"sysdata-1.rda")
 #RobExtremes:::.recomputeInterpolators(c(fn01,fn02, fn1), sysRdaFolder = .myFolderA, overwrite=TRUE, translate=FALSE)
 file.copy(fnA,fna, overwrite=T)
+#RobExtremes:::.recomputeInterpolators(fna, sysRdaFolder = .myFolderA, overwrite=TRUE, translate=FALSE)
 RobExtremes:::.recomputeInterpolators(c(fna,fn1), sysRdaFolder = .myFolderA, overwrite=TRUE, translate=FALSE)
 nE= new.env()
 load(fnA,envir=nE)