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

Store the following binary number as a character string s: 110011. (10 points)

Convert this into a character vector v. (10 points)

Expand the character vector v to 8 bits as follows: swap v[3] and v[4] . (10 points)

Replicate v[3] and v[4] . The result (call it ev) should be a character vector of size 8. (10 points)

Write a function called expand() that takes a binary vector of size 6 as input and returns a binary vector of size 8 as output. (20 points)