Create Rscript_Qiu