SCM

SCM Repository

[latticeextra] Diff of /pkg/R/panel.2dsmoother.R
ViewVC logotype

Diff of /pkg/R/panel.2dsmoother.R

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 123, Thu Apr 8 05:42:20 2010 UTC revision 126, Wed Apr 14 02:32:15 2010 UTC
# Line 26  Line 26 
26      ok <- is.finite(x) & is.finite(y) & is.finite(z)      ok <- is.finite(x) & is.finite(y) & is.finite(z)
27      if (sum(ok) < 1)      if (sum(ok) < 1)
28          return()          return()
29      x <- x[ok]      x <- as.numeric(x)[ok]
30      y <- y[ok]      y <- as.numeric(y)[ok]
31      z <- z[ok]      z <- as.numeric(z)[ok]
     data <- list(x = x, y = y, z = z)  
32      mod <- do.call(method,      mod <- do.call(method,
33                     c(alist(form, data = data), args))                     c(alist(form, data = list(x = x, y = y, z = z)),
34                         args))
35      ## use the limits of the data, or panel limits, whichever is smaller      ## use the limits of the data, or panel limits, whichever is smaller
36      lims <- current.panel.limits()      lims <- current.panel.limits()
37      xrange <- c(max(min(lims$x), min(x)), min(max(lims$x), max(x)))      xrange <- c(max(min(lims$x), min(x)), min(max(lims$x), max(x)))

Legend:
Removed from v.123  
changed lines
  Added in v.126

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge