Skip to content

Instantly share code, notes, and snippets.

@jeffreyhorner
jeffreyhorner / .gitignore
Last active December 21, 2015 19:39 — forked from hadley/.gitignore
.Rproj.user
.Rhistory
.RData
*.Rproj
*.html
@jeffreyhorner
jeffreyhorner / aedotplot.r
Created March 7, 2012 21:59 — forked from harrelfe/aedotplot.r
Adverse Event Dotplot for R
require(lattice)
library(RMySQL)
## The following functions are in the HH package
panel.ae.dotplot <-
function (x, y, groups, ..., col.AB, pch.AB, lower, upper)
{
panel.num <- panel.number()
if (panel.num == 1)
panel.ae.leftplot(x, y, groups = groups,
col = col.AB, pch = pch.AB, ...)