.GlobalEnv <- globalenv()
attach(NULL, name = "Autoloads")
.AutoloadEnv <- pos.to.env(2)
assign(".Autoloaded", NULL, env=.AutoloadEnv)
T <- TRUE
F <- FALSE
R.version <- structure(R.Version(), class = "simple.list")
version <- .Alias(R.version)# for S-compatibility
R.version.string <- local({
    cc <- function(...) paste(..., collapse=" ")
    paste(cc("R version", paste(version[c("major","minor")],collapse=".")),
          cc(version[c("year", "month","day")]), sep=", ")
})
.Machine <- Machine()
.Platform <- Platform()

options(na.action = "na.omit")
options(show.signif.stars = TRUE)
options(show.coef.Pvalues = TRUE)
options(keep.source = TRUE)
options(warn = 0)
###-*- R -*- Unix Specific ----

.Library <- paste(R.home(), "library", sep = .Platform$file.sep)
.lib.loc <- unique(c(unlist(strsplit(c(getenv("R_LIBS"),
                                       getenv("RLIBS")), ":")),
                     .Library))
options(papersize = as.vector(getenv("R_PAPERSIZE")))
options(printcmd = as.vector(getenv("R_PRINTCMD")))
options(latexcmd = as.vector(getenv("R_LATEXCMD")))
options(dvipscmd = as.vector(getenv("R_DVIPSCMD")))
options(unzip = as.vector(getenv("R_UNZIPCMD")))
options(device = if(interactive() && getenv("DISPLAY") != "")
        "X11" else "postscript")
options(X11colortype = "true")
options(pager = "${R_HOME}/bin/pager")
options(browser = "netscape")
options(mailer = "mailx")
