[Robast-commits] r179 - in pkg/RobAStBase: . R

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

Author: stamats
Date: 2008-10-23 16:38:56 +0200 (Thu, 23 Oct 2008)
New Revision: 179

Modified:
   pkg/RobAStBase/DESCRIPTION
   pkg/RobAStBase/R/utils.R
Log:
corrected small bug in .getDistr ...

Modified: pkg/RobAStBase/DESCRIPTION
===================================================================
--- pkg/RobAStBase/DESCRIPTION	2008-10-23 13:17:03 UTC (rev 178)
+++ pkg/RobAStBase/DESCRIPTION	2008-10-23 14:38:56 UTC (rev 179)
@@ -1,6 +1,6 @@
 Package: RobAStBase
-Version: 0.1.1
-Date: 2008-10-20
+Version: 0.1.2
+Date: 2008-10-23
 Title: Robust Asymptotic Statistics
 Description: Base S4-classes and functions for robust asymptotic statistics.
 Depends: R(>= 2.6.0), methods, distr(>= 2.0), distrEx(>= 2.0), distrMod(>= 2.0), RandVar(>= 0.6.3)

Modified: pkg/RobAStBase/R/utils.R
===================================================================
--- pkg/RobAStBase/R/utils.R	2008-10-23 13:17:03 UTC (rev 178)
+++ pkg/RobAStBase/R/utils.R	2008-10-23 14:38:56 UTC (rev 179)
@@ -5,11 +5,13 @@
         slots <- slots[slots != "name"]
         nrvalues <- length(slots)
         if (nrvalues > 0) {
-            values = numeric(nrvalues)
+            values <- numeric(nrvalues)
             for (i in 1:nrvalues) 
                 values[i] <- attributes(attributes(L2Fam at distribution)$param)[[slots[i]]]
 
             paramstring <- paste("(", paste(values, collapse = ", "), ")", sep = "")
+        }else{
+            paramstring <- NULL
         }
         distr <- paste(class(L2Fam at distribution)[1], paramstring, sep = "")
 }