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

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

Author: ruckdeschel
Date: 2013-01-26 14:50:54 +0100 (Sat, 26 Jan 2013)
New Revision: 565

Modified:
   branches/robast-0.9/pkg/RobExtremes/R/sysdata.rda
   branches/robast-0.9/pkg/RobExtremes/inst/AddMaterial/interpolation/interpolationsmanipulations.R
Log:
RobExtremes: added grids for RMXE and Gamma

Modified: branches/robast-0.9/pkg/RobExtremes/R/sysdata.rda
===================================================================
(Binary files differ)

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-25 22:40:25 UTC (rev 564)
+++ branches/robast-0.9/pkg/RobExtremes/inst/AddMaterial/interpolation/interpolationsmanipulations.R	2013-01-26 13:50:54 UTC (rev 565)
@@ -109,7 +109,7 @@
 lapply(grep("\\.O$",w,val=T), function(x) {u=get(x,envir=nE); for(i in 1:length(u)){if(length(u)<4){ print(u[[i]]$fct[[1]](0.3)); print(u[[i]]$fct[[2]](0.3))}else{print(u[[i]]$fct(0.3))}}})
 
 fu <- function(xi){
-  ext <- if(getRversion<"2.16") "\\.O$" else "\\.N$"
+  ext <- if(getRversion()<"2.16") "\\.O$" else "\\.N$"
   lapply(grep(ext,w,val=T), function(x) {
     print(x)
     u <- get(x,envir=nE);