4 Supplement
# Filter the sessions
<- data %>%
sessionData group_by(userId, sessionId, lessonId, lessonTitle) %>%
summarize(duration = (max(presentationStartTime) - min(presentationStartTime))/60000,
start = min(presentationStartTime),
legit = if_else(duration > 6, T, F))
<- sessionData %>%
sessionData group_by(userId, lessonId, lessonTitle) %>%
arrange(start, by_group=T) %>%
mutate(sessionRank = seq(1, length(start)))
<- sessionData %>%
sessionDataFiltered filter(legit == T) %>%
group_by(userId, lessonId) %>%
mutate(minRank = min(sessionRank))
<- sessionData %>%
sessionData inner_join(sessionDataFiltered) %>%
mutate(usable = if_else(minRank == sessionRank, T, F))
<- inner_join(sessionData, data) %>%
cleandata filter(usable == T)
$userId <- as.character(cleandata$userId)
cleandata
# Change reactionTime from ms to s
$reactionTime <- (cleandata$reactionTime/1000) cleandata
# Filter by task
=filter(cleandata,lessonTitle=='Pasta')
Pasta=filter(cleandata,lessonTitle=='Swahili 1')
Swahili1=filter(cleandata,lessonTitle=='Flowers')
Flowers=filter(cleandata,lessonTitle=='European Capitals 1')
Capitals=filter(cleandata,lessonTitle=='Birds')
Birds=filter(cleandata,lessonTitle=='Newspapers')
News=filter(cleandata,lessonTitle=='Asian Flags')
Flags=filter(cleandata,lessonTitle=='Folktales')
Folktales=filter(cleandata,lessonTitle=='Maps')
Maps=filter(cleandata,lessonTitle=='US Towns 1')
Towns=filter(cleandata,lessonTitle=='Art') Art
4.1 Lesson Fact Response Times
4.1.1 Response Time for each fact (interactive)
<- Pasta %>%
Pasta_AVG_RoF_Facts average_ROF_facts()
## This may take a moment...
<- inner_join(Pasta, Pasta_AVG_RoF_Facts) Pasta_AVG_RoF_Facts
# Make plot HH
# plot <- ggplot(Pasta_AVG_RoF_Facts, aes(x = factor(repetition), y = mean_alpha, group = factId)) +
# geom_line(alpha = 1, aes(colour = factor(factId))) +
# geom_point(alpha = 0.5, size = 1, aes(colour = factor(factId), fill = factor(factId))) +
# geom_point(Pasta_AVG_RoF_Facts, alpha = 0.5, size = 3, position = position_jitter(w = 0.08, h = 0), aes(colour = factor(factId), fill = factor(factId))) +
# scale_color_manual(name="Facts", labels = factLabels,values = factcolor, breaks=factId) +
# guides(fill = "none") +
# coord_cartesian(xlim = x, ylim = y) +
# labs(x = "Fact Repetitions", y = "Alpha") +
# theme_hc() +
# theme(legend.position="right") +
# guides(colour=guide_legend(nrow=18, byrow=FALSE)) +
# ggtitle(plotTitle)
# plot
4.2 Lesson Facts RoF
4.2.1 Average Rate of Forgetting for Each Lesson’s Facts
average_ROF_facts(Pasta, factNames = "factAnswer")
## This may take a moment...
average_ROF_facts(Swahili1, factNames = "factAnswer")
## This may take a moment...
average_ROF_facts(Flowers, factNames = "factAnswer")
## This may take a moment...
average_ROF_facts(Capitals, factNames = "factAnswer")
## This may take a moment...
average_ROF_facts(Birds, factNames = "factAnswer")
## This may take a moment...
average_ROF_facts(News, factNames = "factAnswer")
## This may take a moment...
average_ROF_facts(Flags, factNames = "factAnswer")
## This may take a moment...
average_ROF_facts(Pasta, factNames = "factAnswer")
## This may take a moment...
average_ROF_facts(Swahili1, factNames = "factAnswer")
## This may take a moment...
average_ROF_facts(Flowers, factNames = "factAnswer")
## This may take a moment...
average_ROF_facts(Capitals, factNames = "factAnswer")
## This may take a moment...
average_ROF_facts(Birds, factNames = "factAnswer")
## This may take a moment...
average_ROF_facts(News, factNames = "factAnswer")
## This may take a moment...
average_ROF_facts(Flags, factNames = "factAnswer")
## This may take a moment...
4.3 Lesson Participant RoF
4.3.1 Average Rate of Forgetting for Every Participant in Each Lesson
average_ROF_participants(Pasta, userId = "userId")
## This may take a moment...
average_ROF_participants(Swahili1, userId = "userId")
## This may take a moment...
average_ROF_participants(Flowers, userId = "userId")
## This may take a moment...
average_ROF_participants(Capitals, userId = "userId")
## This may take a moment...
average_ROF_participants(Birds, userId = "userId")
## This may take a moment...
average_ROF_participants(News, userId = "userId")
## This may take a moment...
average_ROF_participants(Flags, userId = "userId")
## This may take a moment...
4.3.2 Average Rate of Forgetting for Every Participant in Each Lesson (Interactive)
4.3.2.1 By Clinical Status
average_ROF_participants_interactive(Pasta, userId = "userId")
## This may take a moment...
average_ROF_participants_interactive(Swahili1, userId = "userId")
## This may take a moment...
average_ROF_participants_interactive(Flowers, userId = "userId")
## This may take a moment...
average_ROF_participants_interactive(Capitals, userId = "userId")
## This may take a moment...
average_ROF_participants_interactive(Birds, userId = "userId")
## This may take a moment...
average_ROF_participants_interactive(News, userId = "userId")
## This may take a moment...
average_ROF_participants_interactive(Flags, userId = "userId")
## This may take a moment...