swh:1:snp:a4c99a50dc49f82b591f268001b320f8c3ca0041
Raw File
Tip revision: e3fb24ebd97f7686caee78bcef4e558b908a465e authored by jmc on 01 December 2007, 00:00:00 UTC
version 0.97-1
Tip revision: e3fb24e
trackClass.R
setClass("track", representation(x ="numeric", y="numeric"))
setClass("track3", representation(z="numeric"), contains = "track")
setMethod("plot",
    signature("track", "missing"),
    function (x, y, ...) 
    {
        plot(x@x, x@y, asp = 1, ...)
    }
)
setMethod("plot", c("track3", "missing"), #version 2
          function(x, y, points = c(".", "o", "*"), ...) {
              which = as.integer(cut(x@z, length(points)))
              callNextMethod(x, pch = points[which], ...)
              })

setMethod("show", "track",
          function(object) {
              message("Object of class \"", class(object), "\"")
              print(cbind(x = object@x, y=object@y))
          })
back to top