# NOT RUN {
require(latticeExtra)
with(group.UCL(weight~feed,chickwts,FUN=CI),
segplot(feed~weight.lower+weight.upper,center=weight.mean)
)
require(Hmisc)
with(group.UCL(Temp~Month,airquality,FUN=STDERR),
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