rm(list=ls()) #clears memory
setwd("/rstuff") #sets path
t2<-rt(10000,df=2)#draws 10000 random observations from t with df=2
t4<-rt(10000,df=4)
t8<-rt(10000,df=8)
t16<-rt(10000,df=16)
t32<-rt(10000,df=32)
nor<-rnorm(10000, mean=0, sd=1)#draws 10000 random observations from a 
#normal distribution with mean=0 and s=1

tall<-cbind(t2,t4,t8,t16,t32,nor)#binds 6 columns into 1 object (tall)

write.csv(tall, file = "tall.csv")#writes tall as a csv file