Displaying 1 result from an estimated 1 matches for "msg39654".
Did you mean:
msg11654
2010 Jun 18
1
ow to apply a panel function to each of several data series plotted on the same graph in lattice
...panel.smooth.spline <- function(x, y,
w=NULL, df, spar = NULL, cv = FALSE,
lwd=plot.line$lwd, lty=plot.line$lty,col, col.line=plot.line$col,
type, horizontal=FALSE,... )
{
# Deepayan Sarkar code from: http://www.mail-archive.com/r-help at r-project.org/msg39654.html
x <- as.numeric(x)
y <- as.numeric(y)
ok <- is.finite(x) & is.finite(y)
if (sum(ok) < 1)
return()
if (!missing(col)) {
if (missing(col.line))
col.line <- col
}...