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

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

Author: ingmarvisser
Date: 2012-07-25 16:57:32 +0200 (Wed, 25 Jul 2012)
New Revision: 541

Modified:
   pkg/depmixS4/R/depmixfit-class.R
Log:
Replaced print by show for S4 objects

Modified: pkg/depmixS4/R/depmixfit-class.R
===================================================================
--- pkg/depmixS4/R/depmixfit-class.R	2012-07-25 14:55:55 UTC (rev 540)
+++ pkg/depmixS4/R/depmixfit-class.R	2012-07-25 14:57:32 UTC (rev 541)
@@ -47,7 +47,7 @@
 		)
 		if(ans==1|ans==3) {
 			cat("Mixture probabilities model \n")
-			print(object at prior)
+			show(object at prior)
 			cat("\n")
 		}
 		if(ans==1|ans==2) {
@@ -55,7 +55,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")
@@ -110,13 +110,13 @@
 		)
 		if(ans==1|ans==3) {
 			cat("Initial state probabilties model \n")
-			print(object at prior)
+			show(object at prior)
 			cat("\n")
 		}
 		if(ans==1|ans==4) {
 			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")
@@ -126,7 +126,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")