#read in data from SAS output file

random = read.csv(file="c:/1datalap/Learning/psy533x/rantimes1.csv", header = TRUE)

read.table(file=file.choose())

t.test(random$y, var.equal=T) 

t.test(random$y, conf.level=.99, var.equal=T)

#optional: now do the exercise in R, and export back to SAS.  

x = rnorm(200)
x

hist(x)

newx = scale(x)
newx

t.test(newx, conf.level=.95, var.equal=T)