nareal

library(shiny)
library(plyr)
library(scales)
library(ggplot2)
library(reshape2)

set.seed(12435)

state <- sample(c("CA", "WA", "OR", "AZ", "NV", "UT"), 40000, replace = T)
lowgrade <- sample(c(0,1), 40000, replace = T)

nareal

library(RJSONIO)
library(plyr)

#racechart

#Helper functions
getNum=function(x){as.numeric(as.character(x))}
timeInS=function(tStr){
  x=unlist(strsplit(tStr,':'))
  tS=60*getNum(x[1])+getNum(x[2])