The R Project SVN – R – Diff – /trunk/src/library/methods/man/NextMethod.Rd



          function(e1, e2)
              callNextMethod(round(e1, e2@d), round(e2, e2@d)))
 
## similarly to the Arith case, the method for two "rnum" objects
## can not unambiguously use callNextMethod().  Instead, we rely on
## The rnum() method inherited from Math2 to return plain vectors.
setMethod("Compare", c(e1 ="rnum", e2 = "rnum"),
          function(e1, e2) {
              d <- min(e1@d, e2@d)
              callGeneric(round(e1, d), round(e2, d))
          })

Rev 71956	Rev 88267
Line 167...	Line 167...
167	`function(e1, e2)`	167	`function(e1, e2)`
168	`callNextMethod(round(e1, e2@d), round(e2, e2@d)))`	168	`callNextMethod(round(e1, e2@d), round(e2, e2@d)))`
169		169
170	`## similarly to the Arith case, the method for two "rnum" objects`	170	`## similarly to the Arith case, the method for two "rnum" objects`
171	`## can not unambiguously use callNextMethod(). Instead, we rely on`	171	`## can not unambiguously use callNextMethod(). Instead, we rely on`
172	`## The rnum() method inhertited from Math2 to return plain vectors.`	172	`## The rnum() method inherited from Math2 to return plain vectors.`
173	`setMethod("Compare", c(e1 ="rnum", e2 = "rnum"),`	173	`setMethod("Compare", c(e1 ="rnum", e2 = "rnum"),`
174	`function(e1, e2) {`	174	`function(e1, e2) {`
175	`d <- min(e1@d, e2@d)`	175	`d <- min(e1@d, e2@d)`
176	`callGeneric(round(e1, d), round(e2, d))`	176	`callGeneric(round(e1, d), round(e2, d))`
177	`})`	177	`})`

The R Project SVN R

(root)/trunk/src/library/methods/man/NextMethod.Rd @ 28362 – Rev 71956 → 88267