We are interested in whether people remember faces without masks better than faces with masks. To look into this, a researcher decides to test 25 people's memories for faces wearing a mask and for faces without a mask (% of faces identified correctly). They obtain the following data: ```{r} participant<- 1:25 Mask<- c(20, 15,10,30,35,40,50, 55,60,15,40,35,25,40,10,15,10,20,25,35,40,45,45,30,40) noMask<- c(60,50,60,65,70,75,70,40,45,30,35,50,60,40, 50,55,60,45,65,45, 55,60,65,55,55) dat<- cbind.data.frame(participant, Mask, noMask) ```

for the critical area, we will assume alpha = 0.05 (due to convention). because it's a one tailed test, it will all be in the upper tail (side to the right) Degrees of freedom are N - 1 because we only have one group (though it is two samples, they are **Dependent**, meaning that only one value needs to be fixed)

```{r}

```

#### Step 4: Calculate an observed statistic, calculate a p value we'll be using t.test(), but adding a new argument "paired= TRUE" to account for the research design we're using.

```{r}

```