# NOT RUN {
require(latticeExtra)
with(group.CI(weight~feed,chickwts),
segplot(feed~weight.lower+weight.upper,center=weight.mean)
)
require(Hmisc)
with(group.CI(Temp~Month,airquality),
xYplot(Cbind(Temp.mean,Temp.lower,Temp.upper)~numericScale(Month),type="b",ylim=c(60,90))
)
# }
Run the code above in your browser using DataLab