[Distr-commits] r191 - branches/distr-2.0/pkg/distrMod/R

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

Author: stamats
Date: 2008-07-23 09:01:14 +0200 (Wed, 23 Jul 2008)
New Revision: 191

Modified:
   branches/distr-2.0/pkg/distrMod/R/AllClass.R
   branches/distr-2.0/pkg/distrMod/R/L2GroupFamilies.R
Log:
compare only numbers not attributes + minor correction

Modified: branches/distr-2.0/pkg/distrMod/R/AllClass.R
===================================================================
--- branches/distr-2.0/pkg/distrMod/R/AllClass.R	2008-07-22 18:09:51 UTC (rev 190)
+++ branches/distr-2.0/pkg/distrMod/R/AllClass.R	2008-07-23 07:01:14 UTC (rev 191)
@@ -49,7 +49,8 @@
                     stop("no square matrix")
                 if(any(!is.finite(object)))
                     stop("inifinite or missing values in matrix")
-                if(!isTRUE(all.equal(object, t(object), .Machine$double.eps^0.5)))
+                if(!isTRUE(all.equal(object, t(object), .Machine$double.eps^0.5, 
+                                     check.attributes = FALSE)))
                     stop("matrix is not symmetric")
                 if(!all(eigen(object)$values > -100*.Machine$double.eps))
                    stop("matrix is (numerically) not positive semi - definite")

Modified: branches/distr-2.0/pkg/distrMod/R/L2GroupFamilies.R
===================================================================
--- branches/distr-2.0/pkg/distrMod/R/L2GroupFamilies.R	2008-07-22 18:09:51 UTC (rev 190)
+++ branches/distr-2.0/pkg/distrMod/R/L2GroupFamilies.R	2008-07-23 07:01:14 UTC (rev 191)
@@ -109,7 +109,7 @@
 
     param0 <- scale
     names(param0) <- "scale"
-    param <- ParamFamParameter(name = "scale", main = scale, trafo = trafo)
+    param <- ParamFamParameter(name = "scale", main = param0, trafo = trafo)
     modifyParam <- function(theta){}
     body(modifyParam) <- substitute({ theta*centraldistribution+loc },
                                       list(loc = loc))