I was reading a presentation of Professor Peng's and typed the
presentation code into R but I changed it to make plot.polygon a
separate function instread of defining the function in SetMethod itself
as he did. Is that the problem with the code below because
plot(p) just gives me zero. Thanks.
setClass("polygon", representation(x = "numeric",
y = "numeric"))
plot <- function(object)
{
return(0)
}
setGeneric("plot")
plot.polygon <- function(x, y, ...) {
xlim <- range([EMAIL PROTECTED])
ylim <- range([EMAIL PROTECTED])
plot(0,0, type = "n", xlim = xlim, ylim = ylim, ...)
xp <- c([EMAIL PROTECTED], [EMAIL PROTECTED])
yp <- c([EMAIL PROTECTED], [EMAIL PROTECTED])
lines(xp, yp)
}
setMethod("plot","polygon",plot.polygon)
p <- new("polygon", x = c(1,2,3,4), y = c(1,2,3,1))
plot(p)
--------------------------------------------------------
This is not an offer (or solicitation of an offer) to buy/se...{{dropped}}
______________________________________________
R-help@stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
