This page is a method.
The page identifier is Op_en5737 |
|---|
| 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
|
Plot diagrams about ovariable data
# 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]])
}
}
)
|
