R/lines.XYCurveFit.R

In aroma.light: Light-Weight Methods for Normalization and Visualization of Microarray Data using Only Basic R Data Types

setMethodS3("lines", "XYCurveFit", function(x, xNew=NULL, ...) {
  # To please R CMD check
  fit <- x;

  if (is.null(xNew)) {
    xNew <- fit$x;
    xNew <- sort(xNew);
    xNew <- xNew[!duplicated(xNew)];
  }
  y <- fit$predictY(xNew);
  lines(x=xNew, y=y, ...);
}) # lines()


############################################################################
# HISTORY:
# 2009-07-15
# o Created.
############################################################################