.GlobalEnv <- globalenv()
attach(NULL, name = "Autoloads")
.AutoloadEnv <- pos.to.env(2)
assign(".Autoloaded", NULL, env=.AutoloadEnv)
T <- TRUE
F <- FALSE
version <- structure(Version(), class = "simple.list")
.Machine <- Machine()

options(na.action = "na.omit")
options(show.signif.stars = TRUE)
options(show.coef.Pvalues = TRUE)
###-*- R -*- Unix Specific ----
.Library <- paste(getenv("RHOME"), "library", sep = "/")

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

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

options(browser = "netscape")

## .First <- function() { if (interactive() && getenv("DISPLAY") != "") x11() }
options(pager = "${RHOME}/bin/pager")
