add prediction2 (more R-stylic)