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 148, Tue Jun 1 11:51:52 2010 UTC revision 194, Fri Jan 1 11:17:13 2016 UTC
# Line 38  Line 38 
38      yrange <- c(max(min(lims$y), min(y)), min(max(lims$y), max(y)))      yrange <- c(max(min(lims$y), min(y)), min(max(lims$y), max(y)))
39      xseq <- seq(xrange[1], xrange[2], length = n)      xseq <- seq(xrange[1], xrange[2], length = n)
40      yseq <- seq(yrange[1], yrange[2], length = n)      yseq <- seq(yrange[1], yrange[2], length = n)
41      zseq <- seq(min(z), max(z), length = n)      ## zseq <- seq(min(z), max(z), length = n)
42      grid <- expand.grid(x = xseq, y = yseq)      grid <- expand.grid(x = xseq, y = yseq)
43      fit <- predict(mod, grid)      fit <- predict(mod, grid)
44      panel.levelplot(x = grid$x, y = grid$y, z = fit, subscripts = TRUE,      panel.levelplot(x = grid$x, y = grid$y, z = fit, subscripts = TRUE,

Legend:
Removed from v.148  
changed lines
  Added in v.194

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