[Robast-commits] r554 - branches/robast-0.9/pkg/RobExtremes/inst/AddMaterial/interpolation

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

Author: ruckdeschel
Date: 2013-01-24 23:44:27 +0100 (Thu, 24 Jan 2013)
New Revision: 554

Modified:
   branches/robast-0.9/pkg/RobExtremes/inst/AddMaterial/interpolation/interpolationscripts.R
Log:
RobExtremes: gave more detailed comments in interpolation/interpolationscripts.R 

Modified: branches/robast-0.9/pkg/RobExtremes/inst/AddMaterial/interpolation/interpolationscripts.R
===================================================================
--- branches/robast-0.9/pkg/RobExtremes/inst/AddMaterial/interpolation/interpolationscripts.R	2013-01-24 22:07:01 UTC (rev 553)
+++ branches/robast-0.9/pkg/RobExtremes/inst/AddMaterial/interpolation/interpolationscripts.R	2013-01-24 22:44:27 UTC (rev 554)
@@ -43,9 +43,15 @@
 #############################################################################
 ### GEVD
 #############################################################################
+##---------------------------------------------------------------------
 ## on R-3.0.0
+##---------------------------------------------------------------------
+## install new versions of distr-family and robast-family of pkgs
+### open R session
 require(RobExtremes)
+### -> change this according to where you checked out the svn repo:
 .basepath <- "C:/rtest/RobASt/branches/robast-0.9/pkg"
+## <-
 .saveInterpGrid <- RobExtremes:::.saveInterpGrid
 .svInt <- RobExtremes:::.svInt
 .OMSE.xi <- RobExtremes:::.OMSE.xi
@@ -56,6 +62,8 @@
 .myFolder1 <- file.path(.basepath,"RobExtremesBuffer/tmp1")
 .myFolder2 <- file.path(.basepath,"RobExtremesBuffer/tmp2")
 .myFolder3 <- file.path(.basepath,"RobExtremesBuffer/tmp3")
+chkExist <- function(fN) if(!file.exists(fN)) dir.create(fN)
+sapply(c(.myFolder1,.myFolder2,.myFolder3), chkExist)
 PF <- GEVFamily()
 .saveInterpGrid(getShapeGrid(gridsize=500, cutoff.at.0=0.005),
                 sysRdaFolder = .myFolder, accuracy = 5000,upp=10,
@@ -68,15 +76,35 @@
 ### merge and thin out results on R-3.0.0
 rdafiles <- file.path(c(myFolder,.myFolder1,myFolder2,.myFolder3),"sysdata.rda")
 .recomputeInterpolators("sysdata.rda", sysRdaFolder = myFolder)
- ## on R-2.15.2
-require(RobExtremes); RobExtremes:::.recomputeInterpolators(.myfiles1, sysRdaFolder = .myfolder2)
+### close R session;
+##  R CMD build RobExtremes
+##---------------------------------------------------------------------
+## on R-2.15.2
+##---------------------------------------------------------------------
+## install new versions of distr-family and robast-family of pkgs
+##  install RobExtremes from source on R-2.15.2
+require(RobExtremes); RobExtremes:::.recomputeInterpolators(rdafiles, sysRdaFolder = .myFolder)
+### close R session;
+##  R CMD build RobExtremes
+##  R CMD install RobExtremes from source
+##---------------------------------------------------------------------
+## on R-3.0.0
+##---------------------------------------------------------------------
+##  R CMD install RobExtremes from source
+###
 
 #############################################################################
 ### Weibull
 #############################################################################
+##---------------------------------------------------------------------
 ## on R-3.0.0
+##---------------------------------------------------------------------
+## install new versions of distr-family and robast-family of pkgs
+### open R session
 require(RobExtremes)
+### -> change this according to where you checked out the svn repo:
 .basepath <- "C:/rtest/RobASt/branches/robast-0.9/pkg"
+## <-
 .saveInterpGrid <- .saveInterpGrid
 .svInt <- RobExtremes:::.svInt
 .OMSE.xi <- RobExtremes:::.OMSE.xi
@@ -87,6 +115,8 @@
 .myFolder1 <- file.path(.basepath,"RobExtremesBuffer/tmp1")
 .myFolder2 <- file.path(.basepath,"RobExtremesBuffer/tmp2")
 .myFolder3 <- file.path(.basepath,"RobExtremesBuffer/tmp3")
+chkExist <- function(fN) if(!file.exists(fN)) dir.create(fN)
+sapply(c(.myFolder1,.myFolder2,.myFolder3), chkExist)
 PF <- WeibullFamily()
 .saveInterpGrid(getShapeGrid(gridsize=500, cutoff.at.0=0.005),
                 sysRdaFolder = .myFolder, accuracy = 5000,upp=10,
@@ -99,13 +129,31 @@
 ### merge and thin out results on R-3.0.0
 rdafiles <- file.path(c(myFolder,.myFolder1,myFolder2,.myFolder3),"sysdata.rda")
 .recomputeInterpolators("sysdata.rda", sysRdaFolder = myFolder)
- ## on R-2.15.2
-require(RobExtremes); RobExtremes:::.recomputeInterpolators(.myfiles1, sysRdaFolder = .myfolder2)
+### close R session;
+##  R CMD build RobExtremes
+##---------------------------------------------------------------------
+## on R-2.15.2
+##---------------------------------------------------------------------
+## install new versions of distr-family and robast-family of pkgs
+##  install RobExtremes from source on R-2.15.2
+require(RobExtremes); RobExtremes:::.recomputeInterpolators(rdafiles, sysRdaFolder = .myFolder)
+### close R session;
+##  R CMD build RobExtremes
+##  R CMD install RobExtremes from source
+##---------------------------------------------------------------------
+## on R-3.0.0
+##---------------------------------------------------------------------
+##  R CMD install RobExtremes from source
+###
 
 #############################################################################
 ### Gamma
 #############################################################################
+##---------------------------------------------------------------------
 ## on R-3.0.0
+##---------------------------------------------------------------------
+## install new versions of distr-family and robast-family of pkgs
+### open R session
 require(RobExtremes)
 .saveInterpGrid <- RobExtremes:::.saveInterpGrid
 .svInt <- RobExtremes:::.svInt
@@ -113,11 +161,15 @@
 .MBRE.xi <- RobExtremes:::.MBRE.xi
 .RMXE.xi <- RobExtremes:::.RMXE.xi
 .modify.xi.PFam.call <- RobExtremes:::.modify.xi.PFam.call
+### -> change this according to where you checked out the svn repo:
 .basepath <- "C:/rtest/RobASt/branches/robast-0.9/pkg"
+## <-
 .myFolder <- file.path(.basepath,"RobExtremes/R")
 .myFolder1 <- file.path(.basepath,"RobExtremesBuffer/tmp1")
 .myFolder2 <- file.path(.basepath,"RobExtremesBuffer/tmp2")
 .myFolder3 <- file.path(.basepath,"RobExtremesBuffer/tmp3")
+chkExist <- function(fN) if(!file.exists(fN)) dir.create(fN)
+sapply(c(.myFolder1,.myFolder2,.myFolder3), chkExist)
 PF <- GammaFamily()
 .saveInterpGrid(getShapeGrid(gridsize=500, cutoff.at.0=0.005),
                 sysRdaFolder = .myFolder, accuracy = 5000,upp=10,
@@ -130,5 +182,19 @@
 ### merge and thin out results on R-3.0.0
 rdafiles <- file.path(c(myFolder,.myFolder1,myFolder2,.myFolder3),"sysdata.rda")
 .recomputeInterpolators("sysdata.rda", sysRdaFolder = myFolder)
- ## on R-2.15.2
-require(RobExtremes); RobExtremes:::.recomputeInterpolators(.myfiles1, sysRdaFolder = .myfolder2)
+### close R session;
+##  R CMD build RobExtremes
+##---------------------------------------------------------------------
+## on R-2.15.2
+##---------------------------------------------------------------------
+## install new versions of distr-family and robast-family of pkgs
+##  install RobExtremes from source on R-2.15.2
+require(RobExtremes); RobExtremes:::.recomputeInterpolators(rdafiles, sysRdaFolder = .myFolder)
+### close R session;
+##  R CMD build RobExtremes
+##  R CMD install RobExtremes from source
+##---------------------------------------------------------------------
+## on R-3.0.0
+##---------------------------------------------------------------------
+##  R CMD install RobExtremes from source
+###