Final (?) version of Lab1.R