First lab exercise with R