[Distr-commits] r1063 - branches/distr-2.6/pkg/distrEllipse/R

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

Author: ruckdeschel
Date: 2015-11-06 11:36:46 +0100 (Fri, 06 Nov 2015)
New Revision: 1063

Modified:
   branches/distr-2.6/pkg/distrEllipse/R/MVNorm.R
   branches/distr-2.6/pkg/distrEllipse/R/SphericalDistribution.R
Log:
Fehler in distrEllipse bereinigt

Modified: branches/distr-2.6/pkg/distrEllipse/R/MVNorm.R
===================================================================
--- branches/distr-2.6/pkg/distrEllipse/R/MVNorm.R	2015-11-06 10:27:15 UTC (rev 1062)
+++ branches/distr-2.6/pkg/distrEllipse/R/MVNorm.R	2015-11-06 10:36:46 UTC (rev 1063)
@@ -58,7 +58,7 @@
 
 ## MVNormParameter
 setMethod("mean", "MVNormParameter",
-           function(x) object at loc)
+           function(x) x at loc)
 setMethod("sigma", "MVNormParameter",
            function(object) object at scale%*%t(object at scale))
 
@@ -68,4 +68,4 @@
            function(object) object at param@scale%*%t(object at param@scale))
 
 setMethod("mean", "MVNormDistribution",
-           function(x) object at param@loc)
+           function(x) x at param@loc)

Modified: branches/distr-2.6/pkg/distrEllipse/R/SphericalDistribution.R
===================================================================
--- branches/distr-2.6/pkg/distrEllipse/R/SphericalDistribution.R	2015-11-06 10:27:15 UTC (rev 1062)
+++ branches/distr-2.6/pkg/distrEllipse/R/SphericalDistribution.R	2015-11-06 10:36:46 UTC (rev 1063)
@@ -90,16 +90,16 @@
       dots <- match.call(call = sys.call(sys.parent(1)),
                          expand.dots = FALSE)$"..."
       cex <- 0.5
-      if(hasArg(cex)) cex <- dots$cex
+      if(hasArg("cex")) cex <- dots$cex
       col <- "black"
-      if(hasArg(col)) col <- dots$col
+      if(hasArg("col")) col <- dots$col
       
       qchs <- qchisq(.95, df = 2)^.5
       col.Ed <- rep(col.Ed, length.out = 2)
 
       X <- r(x)(2000)
 
-      if(hasArg(panel))
+      if(hasArg("panel"))
          pairs(t(X), ...)
       else
          pairs(t(X), ...,