basic starter R codes