statzhero

 # libraries used. install as necessary

  library(shiny)
  library(RJSONIO) # acquiring and parsing data
  library(ggplot2) # graphs
  library(plyr)  # manipulating data
  library(lubridate) #dates
  library(stringr)

trim.leading <- function (x)  sub("^\\s+", "", x)

statzhero

iqcor <- matrix(.5, nrow=2, ncol=2)
diag(iqcor) <- 1
iqcor
require(MASS)
mvrnorm(10, mu=c(100, 100), Sigma=100*iqcor)

statzhero

grep -Eiorh '[a-zA-Z]{1}[a-zA-Z0-9_\.\-]{1,26}@[a-zA-Z0-9_\.\-]+\.(?:[a-zA-Z]{2}|com|org|net|edu|gov|mil|biz|info|mobi|name|aero|asia|jobs|museum)$' mbox | sort | uniq > emails.txt

statzhero

row.sample <- function(dta, rep = 20) {
  dta <- as.data.frame(dta) # for single variables
  dta[sample(1:nrow(dta), rep, replace=FALSE), ] 
}