THIS IS A R PROGRAMMING QUESTION

PLEASE WRITE THE CODE FOR THESE FOUR QUESTIONS

Question 1

The function `rep()` makes repeated series - for example try `rep(4,times=5)` and `rep(c(1,2),each=3)`. Use `rep()` to enter the sequence `1 1 1 1 2 2 2 2 3 3 3 3` repeated 3 times. Now convert it to a factor with the levels "Low","Medium", and "High". Can you change the levels to "Never","Rarely","Sometimes"?

Question 2 We can use the output of `table()` with `barplot()` to view the frequency of levels in a factor. Can you provide a barplot for the factor from Question 1.

## Exercise 3 Convert the factor from Question 1 (the final part, with levels "Never","Rarely", and "Sometimes") into a character vector. Can you convert the character vector to a numeric vector?

## Exercise 4 A factor variable `a` has been created down below. Convert `a` into an ordered factor with levels `"Sm","Med","Lg","X-Lg"` (with `1` for "Sm"). How many values are equal to or larger than "Lg"? ```{r} a<-factor(scan(text="2 4 3 3 2 1 1 2 3 4 2 3 3 4 1 3 2 1 4 3 2 4")) a ```