recall

references:
- ISI, example 9.2, p.485

library(tidyverse)
library(knitr)

simulation

data

recall <- read.csv("Recall.csv")
recall$Condition <- factor(recall$Condition,
                           levels = c("Before", "After", "None"))
str(recall)
## 'data.frame':    57 obs. of  2 variables:
##  $ Condition: Factor w/ 3 levels "Before","After",..: 2 2 2 2 2 2 2 2 2 2 ...
##  $ Recall   : int  7 5 5 5 2 8 5 5 5 5 ...
tbl <- recall %>%
  group_by(Condition) %>%
  summarize(mean = mean(Recall),
            s = sd(Recall),
            n = n())
kable(tbl)
Condition mean s n
Before 8.263158 1.820931 19
After 5.368421 1.460994 19
None 6.631579 2.005839 19

Barplot.

ggplot(tbl, aes(x = Condition, y = mean, fill = Condition)) +
  geom_bar(stat = "identity") +
  scale_fill_manual(values = c("azure", "bisque", "skyblue")) +
  labs(title = "Recall")