This is R-based programming assignment