page 5

some R code