following code:

set.seed$(100)$

for reproducibility.

Create a vector $($denoted as Grades$)$ with $100$ elements by using runif$().$

Multiply the vector with $10$ and use the function round$()$ to obtain digits from $0$ to $10.$

You should obtain the following output:

$>$ Grades

$\backslash$table$[[,3,3,6,1,5,5,8,4,5,2,6,9,3,4],[26,2,8,9,5,3,5,9,3,10,7,9,2,6,10],[51,3,2,2,3,6,3,1,2,6,2,5,6,10,7],[76,6,9,8,8,1,5,6,9,10,0,6,7,2,3]]$

Let this vector you created denotes the final grades of students on a scale of $0-10.$

Convert this vector to a factor $($denoted as Fact$\_$Grades$)$ in which grades

$0,1,2$ denote "Fail";

$3,4,5$ denote "Barely Passed";

$6,7,8$ denote "Good Grade";

$9,10$ denotes "Excellent Grade".

You should write a script that obtains