[Distr-commits] r1287 - in branches/distr-2.8/pkg/distrEllipse: R inst

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

Author: ruckdeschel
Date: 2018-08-18 22:38:22 +0200 (Sat, 18 Aug 2018)
New Revision: 1287

Modified:
   branches/distr-2.8/pkg/distrEllipse/R/MVMixingDistribution.R
   branches/distr-2.8/pkg/distrEllipse/inst/NEWS
Log:
[distrEllipse] branch 2.8
+ E methods for MultivarMixingDistribution if (diagnostic==TRUE) return 
  diagnostic attributes of S3 class  "DiagnosticClass"

Modified: branches/distr-2.8/pkg/distrEllipse/R/MVMixingDistribution.R
===================================================================
--- branches/distr-2.8/pkg/distrEllipse/R/MVMixingDistribution.R	2018-08-18 20:32:48 UTC (rev 1286)
+++ branches/distr-2.8/pkg/distrEllipse/R/MVMixingDistribution.R	2018-08-18 20:38:22 UTC (rev 1287)
@@ -141,7 +141,10 @@
                  diagn[[i]] <- attr(res0,"diagnostic")
                  res <- res + object at mixCoeff[i]*res0
              }
-             if(diagnostic) attr(res,"diagnostic") <- diagn
+             if(diagnostic){
+                attr(res,"diagnostic") <- diagn
+                class(attr(res,"diagnostic"))<- "DiagnosticClass"
+             }
              return(res)
            })
 setMethod("E", signature(object = "MultivarMixingDistribution",
@@ -164,7 +167,10 @@
                  diagn[[i]] <- attr(res0,"diagnostic")
                  res <- res + object at mixCoeff[i]*res0
              }
-             if(diagnostic) attr(res,"diagnostic") <- diagn
+             if(diagnostic){
+                attr(res,"diagnostic") <- diagn
+                class(attr(res,"diagnostic"))<- "DiagnosticClass"
+             }
              return(res)
            })
 

Modified: branches/distr-2.8/pkg/distrEllipse/inst/NEWS
===================================================================
--- branches/distr-2.8/pkg/distrEllipse/inst/NEWS	2018-08-18 20:32:48 UTC (rev 1286)
+++ branches/distr-2.8/pkg/distrEllipse/inst/NEWS	2018-08-18 20:38:22 UTC (rev 1287)
@@ -20,6 +20,8 @@
 + now specified that we want to use distr::solve
 + E methods for MultivarMixingDistribution use filtering of dots arguments
   (like E()-methods in distrEx v 2.8.0)
++ E methods for MultivarMixingDistribution if (diagnostic==TRUE) return 
+  diagnostic attributes of S3 class  "DiagnosticClass"
 
 ##############
 v 2.7