R/getcsv.r

In SSDforR: Functions to Analyze Single System Data

Getcsv <-
function(){
 m<-match("ssd",search())
O<- sum(m,na.rm=T)
 if (O >0) {detach(ssd)}
 
 ssd<-NULL
 
  ssd<<-read.table(file.choose(),header=TRUE,sep=',')
   

 
 writeLines("-------------------------------------------------------------------------------------")
 writeLines("1-Type attach(ssd) in the console and press <RETURN> to begin working with the file")
 writeLines("2-Type listnames() to review your variables and press <RETURN>")
 writeLines("3-Before opening another file type detach(ssd) and press <RETURN>")
 writeLines("-------------------------------------------------------------------------------------")
 writeLines(" ")
 writeLines("Go to www.ssdanalysis.com for more information")
 
 
}