r script commented