removed redundant reference to data.frame in subset() command