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

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

set.seed(10000)

x=matrix(rt(100,3)/sqrt(3),ncol=10)

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