.GlobalEnv <- globalenv()
T <- TRUE
F <- FALSE
version <- Version()
.Machine <- Machine()
help<-function(...)
                cat("Please use the Help menu.\n")
attach(NULL, name="Autoloads")
.AutoloadEnv <- pos.to.env(2)
getenv<-function(names) .Internal(getenv(names))
.lib.loc <- unique(c(unlist(strsplit(getenv("RLIBS"), ":")), getenv("RHOME")))
options(na.action="na.omit")
options(papersize="a4")

.First <- function() windows()

