Trying to format the R prompt and code correctly