Adding R codes from Statistics One