**REMEMBER YOU ALWAYS HAVE TO RUN THIS FIRST CHUNK BEFORE YOU DO ANYTHING ELSE

```{r}
#YOU WILL ALWAYS NEED THIS FIRST CHUNK. WE WILL ADD TO IT DURING THE SEMESTER.
#THIS CHUNK LOADS THE LIBRARIES AND DATA THAT YOU NEED FOR YOUR WORK.
library(aws.s3)
library('lehmansociology')
library('dplyr')
s3load('gss100.Rdata', bucket = 'lehmansociologydata')
gss100<- droplevels(gss100)
```
BELOW WE WILL GET FREQUENCY TABLES AND MEASURES OF CENTRAL TENDENCY FOR VARIABLES AT DIFFERENT LEVELS OF MEASUREMENT.

```{r}
frequency(gss100$race)
summary(gss100$race)
#Note: MODE needs to be capitalized, which is uncommon. Most of the time, commands will be lower case.
MODE(gss100$race)
```
WRITE 1-2 SENTENCES BELOW THAT INTERPRET THE RESULTS THAT YOU GET FROM RUNNING THE CHUNK ABOVE.
MAKE NOTE OF THE LEVEL OF MEASUREMENT FOR THE VARIABLE RACE
HOW DO THE RESULTS FOR SUMMARY DIFFER FROM THE RESULTS FOR FREQUENCY?


```{r}
frequency(gss100$health)
frequency(as.numeric(gss100$health))
#WRITE A NOTE ABOUT WHAT HAPPENS WHEN YOU ADD as.numeric --WHAT IS THE DIFFERENCE BETWEEN THE RESULT FOR THE TWO LINES ABOVE?
summary(gss100$health)
MODE(gss100$health)
median(as.numeric(gss100$health), na.rm=TRUE)
```
WRITE 1-2 SENTENCES BELOW THAT INTERPRET THE RESULTS FROM RUNNING THE CHUNK ABOVE.
WHAT IS THE LEVEL OF MEASUREMENT FOR HEALTH?
HOW DO THE RESULTS FOR SUMMARY DIFFER FROM THE RESULTS FOR FREQUENCY?
EXPLAIN WHY YOU NEED TO INCLUDE as.numeric AND na.rm=TRUE TO GET A MEDIAN FOR THIS VARIABLE AND
EXPLAIN HOW YOU INTERPRET THE RESULT YOU GET WHEN YOU RUN THE LINE OF CODE FOR THE MEDIAN.


```{r}
frequency(gss100$childs)
summary(gss100$childs)
MODE(gss100$childs)
median(gss100$childs, na.rm=TRUE)
mean(gss100$childs, na.rm=TRUE)
```
WHAT IS THE LEVEL OF MEASUREMENT FOR THE VARIABLE CHILDS?
WRITE 1-2 SENTENCES BELOW THAT INTERPRET THE RESULTS THAT YOU GET FROM RUNNING THE CHUNK ABOVE.
EXPLAIN WHY YOU NEED na.rm=TRUE. EXPLAIN TO YOURSELF WHICH COMMANDS GIVE YOU THE INFORMATION YOU NEED,
WHICH COMMANDS YOU MIGHT NOT NEED, ETC.