Read the StudentSurvey into this markdown and answers the following questions
#read the StudentSurvey.csv in here
#setwd("~/Data 101")
survey <- read.csv("StudentSurvey.csv")
#check the head of the data set
head(survey)
## Year Sex Smoke Award HigherSAT Exercise TV Height Weight Siblings
## 1 Senior M No Olympic Math 10 1 71 180 4
## 2 Sophomore F Yes Academy Math 4 7 66 120 2
## 3 FirstYear M No Nobel Math 14 5 72 208 2
## 4 Junior M No Nobel Math 3 1 63 110 1
## 5 Sophomore F No Nobel Verbal 3 3 65 150 1
## 6 Sophomore F No Nobel Verbal 5 4 65 114 2
## BirthOrder VerbalSAT MathSAT SAT GPA Pulse Piercings
## 1 4 540 670 1210 3.13 54 0
## 2 2 520 630 1150 2.50 66 3
## 3 1 550 560 1110 2.55 130 0
## 4 1 490 630 1120 3.10 78 0
## 5 1 720 450 1170 2.70 40 6
## 6 2 600 550 1150 3.20 80 4
#check the dimensions
dim(survey)
## [1] 79 17
#create a table of students'sex and "HigherSAT"
# Display summary statistics for VerbalSAT
#Find the average GPA of students
#Create a new dataframe, call it "column_df". This new dataframe should contain students' weight and number of hours the exercise
#Access the fourth element in the first column from the StudentSurvey's dataset.