add r introduction