R lab exercises