Hello,
is the following somehow possible with Mod() being a primitive:
"Mod" <- function(x)
UseMethod("Mod")
"Mod.default" <- function(x) {
.Primitive("Mod") ### I know it?s wrong. How can I access the
original Mod ?
}
Thanks for help
M. Eger
--
+-------------------------------------------------------
| Marcus Eger
| Philipps Universitaet Marburg
| Fachbereich Physik AG Neurophysik
| Renthof 7
| 35032 Marburg
| Tel. +49 6421 284169
| Fax +49 6421 287034
+-------------------------------------------------------
| E-Mail: marcus.eger at physik.uni-marburg.de
| http://www.physik.uni-marburg.de/bio/mitarbei/eger.htm
+-------------------------------------------------------
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !) To: r-help-request at
stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._
Marcus Eger <marcus.eger at physik.uni-marburg.de> writes:> Hello, > is the following somehow possible with Mod() being a primitive: > > "Mod" <- function(x) > UseMethod("Mod") > > > "Mod.default" <- function(x) { > .Primitive("Mod") ### I know it´s wrong. How can I access the > original Mod ? > }Try starting with .Mod <- .Alias(Mod) Mod.default <- function(z) .Mod(z) -- O__ ---- Peter Dalgaard Blegdamsvej 3 c/ /'_ --- Dept. of Biostatistics 2200 Cph. N (*) \(*) -- University of Copenhagen Denmark Ph: (+45) 35327918 ~~~~~~~~~~ - (p.dalgaard at biostat.ku.dk) FAX: (+45) 35327907 -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html Send "info", "help", or "[un]subscribe" (in the "body", not the subject !) To: r-help-request at stat.math.ethz.ch _._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._
On Thu, 15 Jul 1999, Marcus Eger wrote:> Hello, > is the following somehow possible with Mod() being a primitive: > > "Mod" <- function(x) > UseMethod("Mod") > > > "Mod.default" <- function(x) { > .Primitive("Mod") ### I know it´s wrong. How can I access the > original Mod ? > }I've been meaning to add a .Primitive function for some time and have just done so. It will show up in snapshots soon. You will be able to do what you want as follows: Mod.default <- Mod Mod <- function(x) UseMethod("Mod") What did you have in mind here? (Should we be thinking of building this in). +----------------------------------------------------------------------+ | Ross Ihaka Email: ihaka at stat.auckland.ac.nz | | Department of Statistics Phone: (64-9) 373-7599 x 5054 | | University of Auckland Fax: (64-9) 373-7018 | | Private Bag 92019 | | Auckland, New Zealand | +----------------------------------------------------------------------+ -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html Send "info", "help", or "[un]subscribe" (in the "body", not the subject !) To: r-help-request at stat.math.ethz.ch _._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._