[Gogarch-commits] r10 - pkg/R

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

Author: bpfaff
Date: 2009-01-25 14:20:02 +0100 (Sun, 25 Jan 2009)
New Revision: 10

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


Modified: pkg/R/Orthom-class.R
===================================================================
--- pkg/R/Orthom-class.R	2009-01-25 13:19:30 UTC (rev 9)
+++ pkg/R/Orthom-class.R	2009-01-25 13:20:02 UTC (rev 10)
@@ -6,17 +6,17 @@
   if(all.equal(diff(dim(object at M)), 0, check.attributes = FALSE)){
     TRUE
   } else {
-    stop("\nObject is not a square matrix.\n")
+    print("\nObject is not a square matrix.\n")
   }
   if(all.equal(det(object at M), 1, check.attributes = FALSE)){
     TRUE
   } else {
-    stop("\nDeterminant of object is not equal to 1.\n")
+    print("\nDeterminant of object is not equal to 1.\n")
   }
   if(all.equal(crossprod(object at M), diag(m), check.attributes = FALSE)){
     TRUE
   } else {
-    stop("\nThe cross product of the object is not the Identity matrix.\n")
+    print("\nThe cross product of the object is not the Identity matrix.\n")
   }
 }
 ##