### This is the system Rprofile file. It is always run on startup.
### Additional commands can be placed in site or user Rprofile files
### (see ?Rprofile).

### Notice that it is a bad idea to use this file as a template for
### personal startup files, since things will be executed twice and in
### the wrong environment since user profiles are run in .GlobalEnv.

.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()

## The next 3 were in base:
autoload("t.test","ctest")
autoload("chisq.test","ctest")
autoload("prop.test","ctest")
autoload("wilcox.test","ctest")# for MM

options(na.action = "na.omit")
options(show.signif.stars = TRUE)
options(show.coef.Pvalues = TRUE)
options(keep.source = TRUE)
options(warn = 0)
options(CRAN = "http://cran.r-project.org")

###-*- R -*-

.Library <- file.path(R.home(), "library")
.lib.loc <- unique(c(unlist(strsplit(getenv("R_LIBS"), ";")), .Library))
if(nchar(getenv("R_PAPERSIZE")) > 0) options(papersize = as.vector(getenv("R_PAPERSIZE"))) else  options(papersize = "a4")
options(device="windows")
options(editor="notepad")
if(any(grep("--ess", commandArgs()))) options(pager="console") else options(pager="internal")
#options(pager="internal")
options(unzip="internal")
options(mailer = "none")
options(width=80)
