THIS IS A R PROGRAMMING QUESTION

WRITE THE CODE IN R FOR THE QUESTION BELOW

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 ```