[Robast-commits] r1102 - branches/robast-1.2/pkg/RobAStBase/R

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

Author: ruckdeschel
Date: 2018-08-06 14:48:26 +0200 (Mon, 06 Aug 2018)
New Revision: 1102

Modified:
   branches/robast-1.2/pkg/RobAStBase/R/AllShow.R
   branches/robast-1.2/pkg/RobAStBase/R/getPIC.R
Log:
[RobAStBase]: branch 2.8
+ some unnecessary coercions (with informatino loss) in show methods
+ commented out a timing done while checking 

Modified: branches/robast-1.2/pkg/RobAStBase/R/AllShow.R
===================================================================
--- branches/robast-1.2/pkg/RobAStBase/R/AllShow.R	2018-08-06 06:35:44 UTC (rev 1101)
+++ branches/robast-1.2/pkg/RobAStBase/R/AllShow.R	2018-08-06 12:48:26 UTC (rev 1102)
@@ -95,7 +95,7 @@
 setMethod("show", "ALEstimate", 
     function(object){
         digits <- getOption("digits")
-        show(as(object,"Estimate"))
+        getMethod("show","Estimate")(object)
         if(getdistrModOption("show.details") != "minimal"){
             cat("asymptotic bias:\n")
             print(asbias(object), quote = FALSE)
@@ -108,7 +108,7 @@
 setMethod("show", "kStepEstimate", 
     function(object){
         digits <- getOption("digits")
-        show(as(object,"ALEstimate"))
+        getMethod("show","kStepEstimate")(object)
         if(getdistrModOption("show.details") != "minimal"){
             cat("steps:\n")
             print(steps(object), quote = FALSE)
@@ -117,7 +117,7 @@
 setMethod("show", "MEstimate", 
     function(object){
         digits <- getOption("digits")
-        show(as(object,"ALEstimate"))
+        getMethod("show","ALEstimate")(object)
         if(getdistrModOption("show.details") != "minimal"){
             cat("value of M equation:\n")
             print(Mroot(object), quote = FALSE)

Modified: branches/robast-1.2/pkg/RobAStBase/R/getPIC.R
===================================================================
--- branches/robast-1.2/pkg/RobAStBase/R/getPIC.R	2018-08-06 06:35:44 UTC (rev 1101)
+++ branches/robast-1.2/pkg/RobAStBase/R/getPIC.R	2018-08-06 12:48:26 UTC (rev 1102)
@@ -52,7 +52,7 @@
        L2Fam <- .getL2Fam(estimator)
        param.0 <- param(L2Fam)
        ecl <- as.list(estimator at estimate.call)[-1]
-       print(system.time({
+#       print(system.time({
        if(grepl("mu = model distr",name(estimator))){
           res <- .CvMMDCovariance(L2Fam=L2Fam, param=param.0,withpreIC=TRUE, N = 2000)
        }else{
@@ -64,7 +64,7 @@
              res <- .CvMMDCovariance(L2Fam=L2Fam, param=param.0,x=x,withpreIC=TRUE, mu=mu, N = 2000)
           }
        }
-       }))
+#       }))
        ICCurve <- res$preIC
        ICname <- "IC of CvM MDE"
        ICCallL2Fam <- L2Fam at fam.call