Update predict.rusb.R

same issues as in rusboost.R. 

Added:
vardep <- vardep[[1]]
in line 29, and then changed the following line to:
n <- nrow(newdata)