# The .First function is called after everything else in .Rprofile is executed
#.First <- function() {
#message("Welcome back ", Sys.getenv("USER"),"!\n","working directory is:", getwd())
#}
options(repos=structure(c(CRAN="http://cran.revolutionanalytics.com/")))