options(echo=T)
#test large computing problems
.Random.seed <- c(57,0,3,0,0,0,49,16,0,0,0,0)
lowess(lottery.number,lottery.payoff,delta=0)
rreg(longley.x,longley.y)
leaps(longley.x,longley.y)
stem(apply(matrix(rnorm(50000),500,100),2,"mean"))
sabl(hstart,cal=T)
