fix predict method in R
Merge pull request #48 from ljzzju/fixPredict

fix predict method in R