Skip to content

Instantly share code, notes, and snippets.

@ajschumacher

ajschumacher/logo.R

Created September 5, 2013 01:32
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ajschumacher/6445008 to your computer and use it in GitHub Desktop.
Save ajschumacher/6445008 to your computer and use it in GitHub Desktop.
Download ZIP
hacky stat prog DC logo in R
Raw
logo.R
set.seed(54)
n <- rnorm(3000,0.5,0.1)
par(mar=c(1,1,3,1))
hist(c(runif(10000),runif(1900,0.35,0.65),n[abs(n-0.5)<0.15]),
xlim=c(0,1),ylim=c(0,600),breaks=51,ylab="",#main="",
main="Statistical Programming DC",col="#C9242D",
axes=F, cex.main=2)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment