[Robast-commits] r1068 - branches/robast-1.1/pkg/RobExtremes/inst/AddMaterial/interpolation

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

Author: ruckdeschel
Date: 2018-07-29 12:22:23 +0200 (Sun, 29 Jul 2018)
New Revision: 1068

Modified:
   branches/robast-1.1/pkg/RobExtremes/inst/AddMaterial/interpolation/interpolationscripts.R
Log:
[RobExtremes] branch 1.1 saved code to recompute MBRE

Modified: branches/robast-1.1/pkg/RobExtremes/inst/AddMaterial/interpolation/interpolationscripts.R
===================================================================
--- branches/robast-1.1/pkg/RobExtremes/inst/AddMaterial/interpolation/interpolationscripts.R	2018-07-29 10:21:35 UTC (rev 1067)
+++ branches/robast-1.1/pkg/RobExtremes/inst/AddMaterial/interpolation/interpolationscripts.R	2018-07-29 10:22:23 UTC (rev 1068)
@@ -5,8 +5,8 @@
 ### open R session
 require(RobExtremes)
 ### -> change this according to where you checked out the svn repo:
-#.basepath <- "C:/rtest/RobASt/branches/robast-1.0./pkg"
-.basepath <- "/p/fm/PeterRuckdeschel/rtest/RobASt/branches/robast-1.0/pkg"
+.basepath <- "C:/rtest/RobASt/branches/robast-1.1/pkg"
+#.basepath <- "/p/fm/PeterRuckdeschel/rtest/RobASt/branches/robast-1.1/pkg"
 .myFolderTo <- file.path(.basepath,"RobExtremesBuffer")
 ## <-
 oldwd <- getwd()
@@ -48,8 +48,43 @@
 #
 # in the end, the results are stored in files like
 #   interpol.OMSEpos1GEVUFamily.csv in
-#
+
+
+# done 20180729: recomputation MBRE grid for Gamma
 if(FALSE){
+  ## Block01::      interpol.MBREpos1Gammafamily.csv
+   PF <- GammaFamily()
+  .svInt(.MBRE.th, PFam=PF, xiGrid = xiGridpos1,namFzus="pos1")
+}
+if(FALSE){
+  ## Block02::      interpol.MBREpos2Gammafamily.csv
+   PF <- GammaFamily()
+  .svInt(.MBRE.th, PFam=PF, xiGrid = xiGridpos2,namFzus="pos2")
+}
+if(FALSE){
+  ## Block03::      interpol.MBREpos3Gammafamily.csv
+   PF <- GammaFamily()
+  .svInt(.MBRE.th, PFam=PF, xiGrid = xiGridpos3,namFzus="pos3")
+}
+if(FALSE){
+  ## Block04::      interpol.MBREpos4Gammafamily.csv
+   PF <- GammaFamily()
+  .svInt(.MBRE.th, PFam=PF, xiGrid = xiGridpos4,namFzus="pos4")
+}
+
+if(FALSE){
+##  merge blocks 1-4
+  csv1 <- .readGridFromCSV("interpol.MBREpos1Gammafamily.csv")
+  csv2 <- .readGridFromCSV("interpol.MBREpos2Gammafamily.csv")
+  csv3 <- .readGridFromCSV("interpol.MBREpos3Gammafamily.csv")
+  csv4 <- .readGridFromCSV("interpol.MBREpos4Gammafamily.csv")
+  Grid <- rbind(csv1$Grid,csv2$Grid,csv3$Grid,csv4$Grid)
+  namPFam <- csv1$namPFam
+  namInSysdata <- ".MBRE"
+  .saveGridToCSV(Grid,"interpolGamma familyMBRE.csv",namPFam,namInSysdata)
+}
+
+if(FALSE){
   ## Block01::      interpol.RMXEpos1GEVUFamily.csv
    PF <- GEVFamilyMuUnknown(withPos=FALSE, ..name="GEVU Family")
   .svInt(.RMXE.th, PFam=PF, xiGrid = xiGridpos1,namFzus="pos1")