Create Code_Listing6.R