###-*- R -*- Unix Specific ----
.Library <- paste(getenv("RHOME"), "library", sep = "/")

.lib.loc <- unique(c(unlist(strsplit(getenv("RLIBS"), ":")), .Library))

options(printcmd = getenv("R_PRINTCMD"))
options(papersize = getenv("R_PAPERSIZE"))
options(device = if(interactive() && getenv("DISPLAY") != "")
        "X11" else "postscript")

options(browser = "netscape")

# .First <- function() { if (interactive() && getenv("DISPLAY") != "") x11() }