programming assignment 3

best.R created