OpasnetUtils/Ops

This page is a knowledge crystal of subtype method. The page identifier is Op_en5736
Moderator:Nobody (see all) Click here to sign up.
This page is a stub. You may improve it into a full page.
Upload data {{#opasnet_base_link:Op_en5736}}

Description

Arithmetic operations of ovariables: first they are merged by index columns, then the operation is performed for the Result.x and Result.y columns.

If one of the expressions is numeric, it is first transformed to ovariable.

Code

+ Show code- Hide code # SETMETHOD OPS ######### Arithmetic operations of ovariables: first they are merged by index columns, ### then the operation is performed for the Result.x and Result.y columns. ### If one of the expressions is numeric, it is first transformed to ovariable. temp <- setMethod( f = "Ops", signature = signature(e1 = "ovariable", e2 = "ovariable"), definition = function(e1, e2) { out <- merge(e1, e2)@output colnames(out) <- gsub(".x", "", colnames(out)) out$Result <- callGeneric(out$Result, out$Result.y) if(!is.null(out$Unit.y)) {out$Unit <- paste(out$Unit, "|(", out$Unit.y, ")", sep= "")} e1@output <- out[, !colnames(out) %in% c("Result.y", "Unit.y")] return(e1) } ) temp <- setMethod( f = "Ops", signature = signature(e1 = "ovariable", e2 = "numeric"), definition = function(e1, e2) { e2 <- make.ovariable(e2) e1 <- callGeneric(e1, e2) return(e1) } ) temp <- setMethod( f = "Ops", signature = signature(e1 = "numeric", e2 = "ovariable"), definition = function(e1, e2) { e1 <- make.ovariable(e1) e1 <- callGeneric(e2, e1) return(e1) } )

See also

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