## Not run:
# z <- latexDotchart(c(.1,.2), c('a','bbAAb'), xlab='This Label',
# auxdata=c(.1,.2), auxtitle='Zcriteria')
# f <- '/tmp/t.tex'
# cat('\documentclass{article}\n\usepackage{epic,color}\n\begin{document}\n', file=f)
# cat(z, sep='\n', file=f, append=TRUE)
# cat('\end{document}\n', file=f, append=TRUE)
#
# set.seed(135)
# maj <- factor(c(rep('North',13),rep('South',13)))
# g <- paste('Category',rep(letters[1:13],2))
# n <- sample(1:15000, 26, replace=TRUE)
# y1 <- runif(26)
# y2 <- pmax(0, y1 - runif(26, 0, .1))
# z <- latexDotchart(y1, g, groups=maj, auxdata=n, auxtitle='n', xlab='Y',
# size.group.labels='large', ttlabels=TRUE)
# f <- '/tmp/t2.tex'
# cat('\documentclass{article}\n\usepackage{epic,color}\n\begin{document}\n\framebox{', file=f)
# cat(z, sep='\n', file=f, append=TRUE)
# cat('}\end{document}\n', file=f, append=TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab