OpasnetUtils/Print

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

Description

Print ovariable contents

Code

+ Show code- Hide code # SETMETHOD PRINT ######################## print ovariable contents temp <- setMethod( 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) } )

See also

• OpasnetBaseUtils
• Object-oriented programming in Opasnet
• Opasnet (R library)