##### R-code for generating data in Exercise 8.6

#### Generate 50 observations of the reference sample from the distribution 
#### t_3/sqrt(3).

set.seed(1000)

x=rt(50,3)/sqrt(3)

write.table(round(x,digits=2),"exercise85.dat",row.names=F)