Create RScript