## Not run:
# # 7-4-2008 MRC-Epid JHZ
# options(stringsAsFactors=FALSE)
# testdata <- data.frame(models=c("Basic model","Adjusted","Moderately adjusted",
# "Heavily adjusted","Other"),
# OR = c(4.5,3.5,2.5,1.5,1),
# SElogOR = c(0.2,0.1,0.5,0.5,0.2))
# ESplot(testdata,v=1)
# title("This is a fictitious plot")
# #
# # Quantitative trait, as appropriate for linear regression
# # testdata <- data.frame(modelid, beta, se(beta))
# # ESplot(testdata, logscale=FALSE)
# #
# # Other scenarios
# # OR with CI
# # ESplot(testdata,SE=FALSE)
# ## End(Not run)
Run the code above in your browser using DataLab