I have been searching similar questions and attempting to adapt the proposed solutions to my question below but to no avail. I am fairly new in using R, I must add. I have a