Programming work using R