OpasnetUtils/Merge

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

Description

Merge of ovariables merges the 'output' slot by index columns except 'Unit'.

Code

+ Show code- Hide code # 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)) } )

See also

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