removed superfluous data.frame names from subset() in Lab 1