R devel - Nov 2006 - wishlist: xlim in lines.polynomial (PR#9362)

Full_Name: Tamas K Papp
Version: 2.4.0
OS: linux
Submission from: (NULL) (140.180.166.160)


I was using the lines.polynomial method for plotting piecewise polynomials
(parts of splines).  I needed a feature to limit the range of plotting using a
parameter given to the function (as opposed to par("usr")).  I think
that the
following changes would be a nice addition:

lines.polynomial <- function (x, len = 100, xlim=par("usr")[1:2],
                              ylim=par("usr")[3:4],...)
{
    p <- x
    x <- seq(xlim[1], xlim[2], len = len)
    y <- predict(p, x)
    y[y <= ylim[1] | y >= ylim[2]] <- NA
    lines(x, y, ...)
}

Package:       polynom
Version:       1.2-3
Date:          2006-09-09

'polynom' is a contributed package, so using R-bugs is inappropriate. 
Please do read the R FAQ and note what it says about contributed packages.

Since in particular it is an R port of an S(-PLUS) library section, author 
!= maintainer and probably both should agree to this.

On Mon, 13 Nov 2006, tpapp at princeton.edu wrote:
> Full_Name: Tamas K Papp
> Version: 2.4.0
> OS: linux
> Submission from: (NULL) (140.180.166.160)
>
>
> I was using the lines.polynomial method for plotting piecewise polynomials
> (parts of splines).  I needed a feature to limit the range of plotting
using a
> parameter given to the function (as opposed to par("usr")).  I
think that the
> following changes would be a nice addition:
>
> lines.polynomial <- function (x, len = 100,
xlim=par("usr")[1:2],
>                              ylim=par("usr")[3:4],...)
> {
>    p <- x
>    x <- seq(xlim[1], xlim[2], len = len)
>    y <- predict(p, x)
>    y[y <= ylim[1] | y >= ylim[2]] <- NA
>    lines(x, y, ...)
> }
>
> Package:       polynom
> Version:       1.2-3
> Date:          2006-09-09
>
> ______________________________________________
> R-devel at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-devel
>
-- 
Brian D. Ripley,                  ripley at stats.ox.ac.uk
Professor of Applied Statistics,  http://www.stats.ox.ac.uk/~ripley/
University of Oxford,             Tel:  +44 1865 272861 (self)
1 South Parks Road,                     +44 1865 272866 (PA)
Oxford OX1 3TG, UK                Fax:  +44 1865 272595