added testLab2.R