library(tidyverse) # Load required libraries for this homework library(readxl)

my_list <- list(classes_offered = c("MIS 431", "MIS 310", "MIS 410", "MIS 412"), student_data = data.frame(student_id = c(54, 100, 32, 423, 2, 19, 39), age = c(18, 22, 27, 18, 29, 22, 20), gpa = c(3.1, 2.8, 3.7, 3.4, 3.2, 3.4, 3.2),

Write the **R** code that calculates the median value (use the **median()** function) of the *gpa* variable in *student_data*. To read about the **median()** function, just execute the following in your **R** session: *?median*