# NOT RUN {
est<-c(1,2,3)
names(est)<-c("A", "B", "C")
lw=c(0,1,2)
up=c(2,3,4)
plotCII(estimate=est, lower=lw, upper=up)
plotCII(estimate=est, lower=lw, upper=up,
lines=c(-1,0,1),
lineslty=c(3,1,3),
lineslwd=c(1,2,1))
###########
names(est)<-c("very long names",
"e v e n l o n g e r n a m e s", "C")
plotCII(estimate=est, lower=lw, upper=up,
CIcol=c("black","green","red"),
HL=TRUE
)
###########
names(est)<-c("very long names",
"e v e n l o n g e r n a m e s", "C")
plotCII(estimate=est, lower=lw, upper=up,
CIcol=c("black","green","red"),
HL=TRUE
)
op<-par(no.readonly = TRUE)
layout(matrix(1:2, ncol=1))
par(mar=c(5,14,3,1))
plotCII(estimate=est, lower=lw, upper=up,
main="Lala 1",
CIcol=c("black","green","red"),
lines=-1,
HL=FALSE
)
plotCII(estimate=est, lower=lw, upper=up,
main="Lala 2",
CIcol=c("black","green","red"),
lines=c(0,1),
HL=FALSE
)
par(op)
# }
Run the code above in your browser using DataLab