Please write your code in R and submit your script and results for each of the following.

1. Create an integer vector S with values from 1-5. Swap elements 1 and 4. [Hint: use the swap() function in package seqinr.