[Depmix-commits] r538 - pkg/depmixS4/R

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

Author: ingmarvisser
Date: 2012-07-25 09:18:27 +0200 (Wed, 25 Jul 2012)
New Revision: 538

Modified:
   pkg/depmixS4/R/depmix-class.R
Log:
Changed print into show for 'print'ing prior, response and transition models in the show methods for mix and depmix objects

Modified: pkg/depmixS4/R/depmix-class.R
===================================================================
--- pkg/depmixS4/R/depmix-class.R	2012-07-23 11:41:50 UTC (rev 537)
+++ pkg/depmixS4/R/depmix-class.R	2012-07-25 07:18:27 UTC (rev 538)
@@ -131,13 +131,13 @@
 setMethod("show","mix",
 	function(object) {
 		cat("Initial state probabilties model \n")
-		print(object at prior)
+		show(object at prior)
 		cat("\n")
 		for(i in 1:object at nstates) {
 			cat("Response model(s) for state", i,"\n\n")
 			for(j in 1:object at nresp) {
 				cat("Response model for response",j,"\n")
-				print(object at response[[i]][[j]])
+				show(object at response[[i]][[j]])
 				cat("\n")
 			}
 			cat("\n")
@@ -177,11 +177,11 @@
 setMethod("show","depmix",
 	function(object) {
 		cat("Initial state probabilties model \n")
-		print(object at prior)
+		show(object at prior)
 		cat("\n")
 		for(i in 1:object at nstates) {
 			cat("Transition model for state (component)", i,"\n")
-			print(object at transition[[i]])
+			show(object at transition[[i]])
 			cat("\n")
 		}
 		cat("\n")
@@ -189,7 +189,7 @@
 			cat("Response model(s) for state", i,"\n\n")
 			for(j in 1:object at nresp) {
 				cat("Response model for response",j,"\n")
-				print(object at response[[i]][[j]])
+				show(object at response[[i]][[j]])
 				cat("\n")
 			}
 			cat("\n")