Use the function read.csv and name the data frame apdata. Copy and paste the following in your R script: apdata $<-$ read.csv$("$APprediction$.$csv$",$ stringsAsFactors $=$ TRUE$)$ apdata$ID $<-$ as$.$factor$($apdata$ID Note: You should not $$hard$-$code$$ any answers in this assignment. For example, suppose Question $0$ asked to find the average of $10$ and $20$ and store it in Q$0.$ You should have Q$0<-$ mean$($c$(10,20))$ for your answer, not Q$0<-15.$ In other words, you should be using functions $($like $$mean$)$ to find answers, rather than storing the values $(15)$ themselves. The problem with hard$-$coding is that if the data changes, your answer will not change with it $($and therefore it will be wrong$).$ Using a function $($like $$mean$),$ on the other hand, will recalculate the mean regardless if the data changes. We want code that is robust to these types of issues. If your code is found to have hard$-$coded answers, you may receive a $0\%$ on the assignment. Q$1$: Find the mean weighted GPA of the students. Assign it to Q$1.$ Q$2$: Find the median weighted GPA of the students. Assign it to Q$2.$ Q$3$: Find the minimum weighted GPA of the students. Assign it to Q$3.$ Q$4$: Find the maximum weighted GPA of the students. Assign it to Q$4.$ Q$5$: Find the range of the weighted GPA of the students. Assign it to Q$5.$ Q$6$: Find the variance of the weighted GPA of the students. Assign it to Q$6.$ Q$7$: Find the standard deviation of the weighted GPA of the students. Assign it to Q$7.$ Q$8$: Store the summary of only the weighted GPA data and store it in Q$8.($Do not store the summary of all variables!$)$ Q$9$: Store the weighted GPA of the student whose data is stored in the $200$th row of the data set in Q$9.$ Q$10$: Convert the weighted GPA for the student in the $200$th row into a z$-$score $($standardized score$).$ When calculating this z$-$score, use the vectors above which contain the statistics needed to calculate a z$-$score. Assign it to Q$10.$ Q$11$: Find the $25$th$,50$th$,$ and $75$th percentiles $($aka quartiles$)$ of the weighted GPAs in this data set. Assign them to Q$11.$ For assistance, see https:$//$www$.$geeksforgeeks.org$/$how$-$to$-$calculate$-$quartiles$-$in$-$r$/$ or this R documentation. $*$R script only$*$