SCM

SCM Repository

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

Diff of /pkg/R/panel.quantile.R

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

revision 193, Thu Dec 31 10:45:11 2015 UTC revision 194, Fri Jan 1 11:17:13 2016 UTC
# Line 16  Line 16 
16               type, col.line, col.symbol, fill,               type, col.line, col.symbol, fill,
17               pch, cex, font, fontface, fontfamily)               pch, cex, font, fontface, fontfamily)
18  {  {
19      library("quantreg")      ## library("quantreg")
20        stopifnot(require("quantreg"))
21      plot.line <- trellis.par.get("plot.line")      plot.line <- trellis.par.get("plot.line")
22      if (!missing(col.line))      if (!missing(col.line)) col <- col.line
         col <- col.line  
23      ## allow 'form' to be passed as the first argument      ## allow 'form' to be passed as the first argument
24      missing.x <- missing(x)      missing.x <- missing(x)
25      if (!missing.x && inherits(x, "formula")) {      if (!missing.x && inherits(x, "formula")) {
# Line 28  Line 28 
28      }      }
29      ## use 'x' and 'y' if given      ## use 'x' and 'y' if given
30      ## otherwise try to find them in the formula environment      ## otherwise try to find them in the formula environment
31      if (missing.x)      if (missing.x) x <- environment(form)$x
32          x <- environment(form)$x      if (missing(y)) y <- environment(form)$y
     if (missing(y))  
         y <- environment(form)$y  
33      ok <- is.finite(x) & is.finite(y)      ok <- is.finite(x) & is.finite(y)
34      if (sum(ok) < 1)      if (sum(ok) < 1) return()
         return()  
35      x <- as.numeric(x)[ok]      x <- as.numeric(x)[ok]
36      y <- as.numeric(y)[ok]      y <- as.numeric(y)[ok]
37      mod <- do.call(method,      mod <- do.call(method,

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

R-Forge@R-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business University of Wisconsin - Madison Powered By FusionForge