added predicton.R