added function is_predictive to determine if data.frames are predictive i.e. variable estimate