applied to 2nd data set and integrated with sweave-papers.... it works!