Difference between revisions of "OpasnetUtils/Print"

Latest revision as of 13:59, 16 August 2012

This page is a method. The page identifier is Op_en5738
Moderator:Nobody (see all) Click here to sign up.
This page is a stub. You may improve it into a full page, and then a rating bar will appear here.
Upload data

Print ovariable contents

@@ Line 8: / Line 8: @@
 ==Code==
-<rcode
-	name="setmethod.print"
-	label="Initiate functions"
-	graphics="1"
-	showcode="1"
->
-# SETMETHOD PRINT ######################## print ovariable contents
-temp <- setMethod(
+https://www.opasnet.org/svn/opasnet_utils/trunk/R/Print.r
-	f = "print",
-	signature = signature(x = "oassessment"),
-	definition = function(x) {
-		cat("Dependencies\n")
-		print(xtable(x@dependencies), type = 'html')
-		cat("Decisions\n")
-		print(xtable(x@decisions), type = 'html')
-		cat("Stakeholders\n")
-		print(xtable(x@stakeholders), type = 'html')
-		cat("Probabilities\n")
-		print(xtable(x@probabilities), type = 'html')
-		cat("\n\nThe list of variables in this assessment.\n")
-		for(k in 1:length(x@vars)) {
-			cat("<b>Variable", names(x@vars)[k], "</b> <p>\n\n")
-			print(x@vars[[k]])
-		}
-	}
-)
-temp <- setMethod(
-	f = "print",
-	signature = signature(x = "ovariable"),
-	definition = function(x, iter = 1) {
-		cat("<b>Ovariable", x@name, "</b>\n")
-		cat("Output\n")
-		print(xtable(x@output[x@output$Iter %in% iter, ]), type = 'html')
-		cat("Formula\n")
-		print(x@formula)
-		cat("Dependencies\n")
-		print(x@dependencies)
-	}
-)
-</rcode>
 ==See also==