options("width"=160)                # wide display with multiple monitors
options("digits.secs"=3)            # show sub-second time stamps

r <- getOption("repos")             # hard code the AU mirror for CRAN
r["CRAN"] <- "https://cran.csiro.au"
options(repos = r)
rm(r)

## from the AER book by Zeileis and Kleiber
options(prompt="R> ", digits=4, show.signif.stars=FALSE)

options("pdfviewer"="evince")