+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"] <- "http://cran.csiro.au"
+options(repos = r)
+rm(r)
+
+## customize the defaults on X
+setHook(packageEvent("grDevices", "onLoad"),
+ function(...) grDevices::X11.options(width=8, height=8,
+ xpos=0, pointsize=10,
+ #type="nbcairo")) # Cairo device
+ #type="cairo")) # other Cairo dev
+ type="xlib")) # old default
+
+## from the AER book by Zeileis and Kleiber
+options(prompt="R> ", digits=4, show.signif.stars=FALSE)
+
+
+options("pdfviewer"="evince")