create r script