# Things you might want to change

# options(papersize="a4")
# options(editor="notepad")
# options(pager="internal")

# set the default help type
  options(help_type="text")
# options(help_type="html")

# set a site library
# .Library.site <- file.path(chartr("\\", "/", R.home()), "site-library")

# set a CRAN mirror
# local({r <- getOption("repos")
#       r["CRAN"] <- "http://my.local.cran"
#       options(repos=r)})

# Give a fortune cookie, but only to interactive sessions
# (This would need the fortunes package to be installed.)
#  if (interactive()) 
#    fortunes::fortune()

# The line below sets the working directory.
setwd("c:\\Users\\jds0282\\Desktop\\Workstuff\\Jon_R")

# Libraries / packages you wish to have loaded when R starts. 
library(foreign)
library(Rcmdr)


# If you would like the console to be cleared (clean) when R first opens, use/insert all of the lines below.

clear.console<-function(x){
cat(rep("\n",50))
}

if (.Platform$GUI %in% c("Rgui","Rterm")){
  if(!("rcom" %in% installed.packages()[, "Package"])){
    install.packages("rcom", dep = T);
    require(rcom);
    dummy<-comRegisterRegistry()} else {
    require(rcom)}}

clear.console()




# End