Consider the data set collected about students at school from https://www.littlemissdata.com/blog/steam-data-art2. First we need to read the data in:

```{r} data = read.table(url( "https://raw.githubusercontent.com/lgellis/STEM/master/DATA-ART-1/Data/FinalData.csv"), header=TRUE,sep=",",quote="\"") ```

The `sep` argument of `read.table` specifies that commas separate the variables (since this is a .csv file). The `quote="\"` argument allows `read.table` to properly read the data that has apostrophes in it.

(a) Create a pie chart of the horoscopes of the children. Also, use the `which()` function to identify the least frequently occurring horoscope in this data set. (The `names()` function obtains the names of a named vector.)

```{r} #Delete this line of code (including the #) and input your code in this code chunk. ```

(b) Create a contingency table of favourite subject by the response to the introvert/extravert question. Which favourite subject has the highest proportion of introverts? Which favourite subject has the highest proportion of extraverts?

```{r} #Delete this line of code (including the #) and input your code in this code chunk. ```

(c) Create a two-panel plot (in 1 row and 2 columns) showing the Q-Q plot of the hours of homework variable and a histogram of the same variable. Create the Q-Q plot manually, not using the `qqnorm()` function.

```{r} #Delete this line of code (including the #) and input your code in this code chunk. ```