R_scriptt