Code for the book data mining with R