continuing with the enron example implemented in R