Update predict.mer.r