swh:1:snp:a4c99a50dc49f82b591f268001b320f8c3ca0041
Tip revision: 1c016a1d9d1dc7690f7c256204f737661d261cb0 authored by jmc on 20 September 2007, 00:00:00 UTC
version 0.96
version 0.96
Tip revision: 1c016a1
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))
})