Copy-and-paste the following directly into R and execute it, libra...