Skip to content

Instantly share code, notes, and snippets.

Ed Küpfer edkupfer

Block or report user

Report or block edkupfer

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@srgist
srgist / gist:6338396
Created Aug 26, 2013
Venn Diagram in R
View gist:6338396
circle <- function(x, y, r, ...) {
ang <- seq(0, 2*pi, length = 100)
xx <- x + r * cos(ang)
yy <- y + r * sin(ang)
polygon(xx, yy, ...)
}
venndia <- function(A, B, C, getdata=FALSE, ...){
cMissing <- missing(C)
if(cMissing){ C <- c() }
You can’t perform that action at this time.