.First <- function() {
options(warn = -1)
.First.sys()
Rversion <- R.Version()
if(Rversion$major < "2" || as.numeric(substring(Rversion$minor, 0, 1)) < 4)
{
  stop("R version greater than or equal to 2.4.0 required")
}
#setup.knnimp()
edge.frm <<- edge()
options(warn = 0)
}
setwd("../..")
getwd()
source("edge.r")
save(list=ls(all=TRUE), file = ".RData")
q(save="no")
