This page is a method.
The page identifier is Op_en5735 |
|---|
| 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
|
Merge of ovariables merges the 'output' slot by index columns except 'Unit'.
# SETMETHOD MERGE ########### merge of ovariables merges the 'output' slot by index columns except 'Unit'.
temp <- setMethod(f = "merge",
signature = signature(x = "ovariable", y = "ovariable"),
definition = function(x, y) {
test <- intersect(colnames(x@output[x@marginal]), colnames(y@output[y@marginal]))
x@output <- merge(x@output, y@output, by = test, all = TRUE)
return(x)
}
)
temp <- setMethod(f = "merge",
signature = signature(x = "ovariable", y = "numeric"),
definition = function(x, y) {
y <- make.ovariable(y)
return(merge(x, y))
}
)
temp <- setMethod(f = "merge",
signature = signature(x = "numeric", y = "ovariable"),
definition = function(x, y) {
x <- make.ovariable(x)
return(merge(y, x))
}
)
|
