r script completed