# NOT RUN {
data(Diabetes)
x=ci.mean(bp.2s~frame,data=Diabetes)
# }
# NOT RUN {
plot(x, leftmargin=0, rightmargin=0)
plotConfidence(x, leftmargin=0, rightmargin=0)
data(CiTable)
with(CiTable,plotConfidence(x=list(HazardRatio),
lower=lower,
upper=upper,
labels=CiTable[,2:6],
factor.reference.pos=c(1,10,19),
format="(u-l)",
points.col="blue",
digits=2))
with(CiTable,Publish::plot.ci(x=list(HazardRatio),
lower=lower,
upper=upper,
labels=CiTable[,2:6],
factor.reference.pos=c(1,10,19),
format="(u-l)",
points.col="blue",
digits=2,
leftmargin=-2,
title.labels.cex=1.1,
labels.cex=0.8,values.cex=0.8))
# }
Run the code above in your browser using DataLab