data <- read.table("splus.dt",header=T)
 attach(data)