[Gogarch-commits] r9 - pkg/R

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

Author: bpfaff
Date: 2009-01-25 14:19:30 +0100 (Sun, 25 Jan 2009)
New Revision: 9

Modified:
   pkg/R/Goinit-class.R
Log:
replaced stop() with print() in validate function for Goinit.


Modified: pkg/R/Goinit-class.R
===================================================================
--- pkg/R/Goinit-class.R	2009-01-25 13:18:12 UTC (rev 8)
+++ pkg/R/Goinit-class.R	2009-01-25 13:19:30 UTC (rev 9)
@@ -6,27 +6,27 @@
   if(all.equal(diff(dim(object at V)), 0, check.attributes = FALSE)){
     TRUE
   } else {
-    stop("\nObject 'V' is not a square matrix.\n")
+    print("\nObject 'V' is not a square matrix.\n")
   }
   if(all.equal(diff(dim(object at P)), 0, check.attributes = FALSE)){
     TRUE
   } else {
-    stop("\nObject 'P' is not a square matrix.\n")
+    print("\nObject 'P' is not a square matrix.\n")
   }
   if(all.equal(diff(dim(object at Dsqr)), 0, check.attributes = FALSE)){
     TRUE
   } else {
-    stop("\nObject 'Dsqr' is not a square matrix.\n")
+    print("\nObject 'Dsqr' is not a square matrix.\n")
   }
   if(all.equal(det(object at Dsqr), prod(diag(object at Dsqr)), check.attributes = FALSE)){
     TRUE
   } else {
-    stop("\nObject 'Dsqr' is not a diagonal matrix.\n")
+    print("\nObject 'Dsqr' is not a diagonal matrix.\n")
   }  
   if(all.equal(object at V, object at P %*% object at Dsqr^2 %*% t(object at P), check.attributes = FALSE)){ 
     TRUE
   } else {
-    stop("\nCovariance matrix cannot be replicated from singular values.\n")
+    print("\nCovariance matrix cannot be replicated from singular values.\n")
   }
 }
 ##