---
title: "Homework 3: Tidy Text & Sentiment"
author: "YOUR NAME HERE"
date: today
format:
  pdf:
    toc: false
execute:
  warning: false
  message: false
---

## Setup

```{r}
library( )
library( )
library( )

cj_data <- read_csv("data/criminal_justice_short.csv")
```

```{r}
#| eval: false
cj <- cj_data |>
  mutate(
    cj_major = str_detect(Q7, "Criminal Justice major"),
    cj_minor = str_detect(Q7, "Criminal Justice minor"),
    pols_legal = str_detect(Q7, "Political Science major"),
    para_cert = str_detect(Q7, "Paralegal Certificate"),
    un_consider = str_detect(Q7, "STRONGLY CONSIDERING"),
    un_not_consider =str_detect(Q7, "NOT CONSIDERING")
  )

cj |> filter(cj_major==TRUE) |> count(Q7)
```

## 1. Interpret the prior output in 1-2 sentences.

# Part A — Tidy it

## 2. Tokenize and remove stop words

```{r}

```

## 3. Identify and describe the most common words.

```{r}

```

## 4. Remove some custom stop words

```{r}

```

## 5. Investigate reasons for choosing another program.

```{r}

```
# Part B — Sentiment Analysis

## 6. Positive and negative words

```{r}

```
## 7. Look closer at one emotion

```{r}

```

## 8. Sentence-level sentiment

```{r}

```

## 9. Reflection