Update Rscript_Qiu