[Robast-commits] r1113 - in branches/robast-1.2/pkg/RobExtremes: . R

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

Author: ruckdeschel
Date: 2018-08-10 01:48:36 +0200 (Fri, 10 Aug 2018)
New Revision: 1113

Modified:
   branches/robast-1.2/pkg/RobExtremes/DESCRIPTION
   branches/robast-1.2/pkg/RobExtremes/R/getStartIC.R
Log:
[RobExtremes] 
in getStartIC.R we remove some interpolation grid parts from the function's environment which is no longer used
in DESCRIPTION we require ROptEst 1.2.0 now 

Modified: branches/robast-1.2/pkg/RobExtremes/DESCRIPTION
===================================================================
--- branches/robast-1.2/pkg/RobExtremes/DESCRIPTION	2018-08-09 23:46:38 UTC (rev 1112)
+++ branches/robast-1.2/pkg/RobExtremes/DESCRIPTION	2018-08-09 23:48:36 UTC (rev 1113)
@@ -5,8 +5,9 @@
 Description: Optimally robust estimation for extreme value distributions using S4 classes and
         methods (based on packages 'distr', 'distrEx', 'distrMod', 'RobAStBase', and
         'ROptEst').
-Depends: R(>= 2.14.0), methods, distrMod(>= 2.8.0), ROptEst(>= 1.1.0), robustbase, evd
+Depends: R(>= 2.14.0), methods, distrMod(>= 2.8.0), ROptEst(>= 1.2.0), robustbase, evd
 Suggests: RUnit(>= 0.4.26), ismev(>= 1.39)
+Enhances: fitdistrplus(>= 1.0-9)
 Imports: RobAStRDA, distr, distrEx(>= 2.8.0), RandVar, RobAStBase(>= 1.2.0), startupmsg, actuar
 Authors at R: c(person("Nataliya", "Horbenko", role=c("aut","cph")), person("Bernhard", "Spangl",
         role="ctb", comment="contributed smoothed grid values of the Lagrange multipliers"),

Modified: branches/robast-1.2/pkg/RobExtremes/R/getStartIC.R
===================================================================
--- branches/robast-1.2/pkg/RobExtremes/R/getStartIC.R	2018-08-09 23:46:38 UTC (rev 1112)
+++ branches/robast-1.2/pkg/RobExtremes/R/getStartIC.R	2018-08-09 23:48:36 UTC (rev 1113)
@@ -26,6 +26,7 @@
     if(length(nsng)){
        if(gridn %in% nsng){
           interpolfct <- famg[[gridn]][[.versionSuff("fun")]]
+          rm(famg, nsgn, gridn)
           .modifyIC0 <- function(L2Fam, IC, withMakeIC = FALSE){
                     para <- param(L2Fam)
                     if(!.is.na.Psi(para, interpolfct, shnam))
@@ -49,8 +50,10 @@
              IC0 at modifyIC <- .modifyIC
              return(IC0)
           }
+          rm(mc)
        }
     }
+    rm(famg, nsgn,gridn)
     IC <- do.call(getStartIC, as.list(mc[-1]), envir=parent.frame(2))
     if(withMakeIC) IC <- makeIC(IC,model)
     return(IC)