OpasnetUtils/Plot: Difference between revisions
Jump to navigation
Jump to search
mNo edit summary |
mNo edit summary |
||
| Line 12: | Line 12: | ||
label="Initiate functions" | label="Initiate functions" | ||
graphics="1" | graphics="1" | ||
showcode="1" | |||
> | > | ||
# SETMETHOD PLOT ################ plot diagrams about ovariable data | # SETMETHOD PLOT ################ plot diagrams about ovariable data | ||
Revision as of 10:51, 15 June 2012
| Moderator:Nobody (see all) Click here to sign up. |
| This page is a stub. You may improve it into a full page. |
| Upload data
|
Description
Plot diagrams about ovariable data
Code
# SETMETHOD PLOT ################ plot diagrams about ovariable data
temp <- setMethod(
f = "plot",
signature = signature(x = "ovariable"),
definition = function(x) {
plot(
x = x@output[, paste("Source", x@name, sep = ".")],
y = x@output$Result,
xlab = paste("Source", x@name, sep = "."),
ylab = x@output[x@output[, paste("Source", x@name, sep = ".")] == "Data", "Unit"][1],
main = x@name
)
}
)
temp <- setMethod(
f = "plot",
signature = signature(x = "oassessment"),
definition = function(x) {
for(i in names(x@vars)) {
plot(x@vars[[i]])
}
}
)
|