Load libraries

library(mosaic)
library(dplyr)
library(googledrive)
library(googlesheets4)

Read in new data from 2025

memories<-read_sheet("https://docs.google.com/spreadsheets/d/1pqnaTdGR08tPk_r9JuFLxBEDu9wbk-MCWm_XRji9ErY/edit?usp=sharing" )

Rename the variables

names(memories)[2:5] <- c("Year", "Group", "CorrectWords", "InCorrectWords")

Tell R that Group is a factor variable

memories$Group <- as.factor(memories$Group)
mean(CorrectWords~Group, data=memories)
Pictures    Words 
14.05263 10.56522 
gf_boxplot(CorrectWords~Group, data=memories)

Side-by-side boxplots of correct number of words for each treatment group

mean(InCorrectWords~Group, data=memories)
 Pictures     Words 
0.2105263 0.5217391 
gf_boxplot(InCorrectWords~Group, data=memories)

Side-by-side boxplots of incorrectly remembered words for each treatment group

Write out the data

write.csv(memories, file = "data/Memories2025.csv", row.names = FALSE)