r script(4)