Show complete R code for first step.