Displaying 1 result from an estimated 1 matches for "326c39".
Did you mean:
32639
2011 Oct 13
0
xyplot() and confidence interval polygons
...12399,11190,11080,9531,9642,11080,11300,10307,9086,7518)
data1 <- as.data.frame(cbind(area,areanm,ageband),stringsAsFactors=TRUE)
data2 <- cbind(est,lci,uci)
data <- cbind(data1,data2)
# Setup colour palette (blue, red, green)
pallc1 <- c("#2F54CB","#BE2C2C","#326C39")
# Divide populations by 1000
data$est <- data$est / 1000
data$lci <- data$lci / 1000
data$uci <- data$uci / 1000
my.panel.bands <-
function(x,y,upper,lower,subscripts, ...,font,fontface)
{
upper <- upper[subscripts]
lower <- lower[subscripts]
panel.polygon...