infer_R