[Distr-commits] r350 - pkg/distr/R

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

Author: stamats
Date: 2008-11-25 05:55:48 +0100 (Tue, 25 Nov 2008)
New Revision: 350

Modified:
   pkg/distr/R/NormalDistribution.R
Log:
small correction ...

Modified: pkg/distr/R/NormalDistribution.R
===================================================================
--- pkg/distr/R/NormalDistribution.R	2008-11-24 19:50:18 UTC (rev 349)
+++ pkg/distr/R/NormalDistribution.R	2008-11-25 04:55:48 UTC (rev 350)
@@ -22,8 +22,10 @@
     if(!is.matrix(sd(object)) && is.numeric(mean(object))) return(TRUE)
     if(nrow(sd(object)) != ncol((sd(object))))
         stop("Covariance matrix not sqared")
-   if(nrow(sd(object)) != length(mean(object)))
-     stop("Covariance matrix and mean vector do not have the same dimension")}
+    if(nrow(sd(object)) != length(mean(object)))
+        stop("Covariance matrix and mean vector do not have the same dimension")
+    return(TRUE)
+}
 
 setValidity("NormParameter", validNormParameter)