R grphics first half day