R code from <Data Mining With R>