Create optional.R

These are the optional parts of the assignment.