Given the code that I wrote below: please answer the following 3 questions

library(tidyverse) ## Read in gpa study hours data## studentgpa <- read.csv("gpa_study_hours.csv") ##Sort GPA from high to low## hightolow <- arrange(studentgpa, desc(gpa)) ##split data into 2 group:higher GPA and lower GPA## n <- 2 s <- split(hightolow, factor(sort(rank(row.names(hightolow))%%n))) ##higher GPA group data## highergroup <- s[["0"]]##xbar1## summary(highergroup) ##Lower GPA group data## lowergroup <- s[["1"]]##xbar2## summary(lowergroup) ##running a t test## t.test(highergroup, lowergroup, var.equal = FALSE) 1.What test you chose and why, either in the R script or in a word file. 2.The hypotheses both in words and in mathematical notation either in the comments of the R script or in a word file. 3.The result both in words and in mathematical notation either in the comments of the R script or in a word file.

1.)What test you chose and why, either in the R script or in a word file.

2.)The hypotheses both in words and in mathematical notation either in the comments of the R script or in a word file.

3.)The result both in words and in mathematical notation either in the comments of the R script or in a word file.