SCM

SCM Repository

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

Diff of /pkg/man/panel.quantile.Rd

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

revision 69, Wed Dec 23 00:29:21 2009 UTC revision 73, Wed Dec 23 06:34:58 2009 UTC
# Line 84  Line 84 
84  set.seed(1)  set.seed(1)
85  xy <- data.frame(x = runif(100), y = rt(100, df = 5))  xy <- data.frame(x = runif(100), y = rt(100, df = 5))
86  xyplot(y ~ x, xy) +  xyplot(y ~ x, xy) +
87    layer(panel.quantile(x, y, tau = c(.05, .5, .95)))    layer(panel.quantile(x, y, tau = c(.95, .5, .05)))
88    
89  if (require("splines")) {  if (require("splines")) {
90    xyplot(y ~ x, xy) +    xyplot(y ~ x, xy) +
# Line 95  Line 95 
95  }  }
96    
97  xyplot(y ~ x, xy) +  xyplot(y ~ x, xy) +
98    layer(panel.quantile(x, y, tau = c(.1, .5, .9), superpose = TRUE))    layer(panel.quantile(x, y, tau = c(.9, .5, .1), superpose = TRUE))
99    
100  update(trellis.last.object(),  update(trellis.last.object(),
101    key = simpleKey(paste(c(10,50,90), "\% quantile"),    key = simpleKey(paste(c(90,50,10), "\% quantile"),
102                    points = FALSE, lines = TRUE))                    points = FALSE, lines = TRUE))
103    
104  ## seems not to work...  ## seems not to work...

Legend:
Removed from v.69  
changed lines
  Added in v.73

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