R Script for My R Book