swh:1:snp:a4c99a50dc49f82b591f268001b320f8c3ca0041
Tip revision: ce60f670aac0a708d3a9af5f0cf46a752d46ba8a authored by John M Chambers on 28 October 2020, 07:59:48 UTC
version 1.0-6.1
version 1.0-6.1
Tip revision: ce60f67
trackNumericOps2.R
setMethod("Arith", c("trackNumeric", "numeric"),
function(e1, e2) {
xx <- callGeneric(e1@.Data, e2)
if(length(xx) == length(e1@.Data))
e1@.Data <- xx
else
stop("Result of arithmeic operation must preserve original length")
e1
})
setMethod("Arith", c("numeric", "trackNumeric"),
function(e1, e2) {
xx <- callGeneric(e1, e2@.Data)
if(length(xx) == length(e2@.Data))
e2@.Data <- xx
else
stop("Result of arithmeic operation must preserve original length")
e2
})
setMethod("Arith", c("trackNumeric", "trackNumeric"),
function(e1, e2) {
if(!(identical(e1@x, e2@x) &&
identical(e1@y, e2@y)))
stop("Objects must have identical x and y coordinates")
e1@.Data <- callGeneric(e1@.Data, e2@.Data)
e1
})