update for new label

philchalmers · philchalmers · commit 1692d85ae6bc · 2025-08-28T22:27:11.000-04:00
diff --git a/R/RCI.R b/R/RCI.R
@@ -440,7 +440,7 @@ RCI_shiny <- function(mod_pre, mod_post = NULL, main = 'Test Scores'){
                 }
                 post.scores <- sapply(collect, \(x) as.numeric(x['post.score']))
                 pre.scores <- as.numeric(collect[[1]]['pre.score'])
-                SEs <- sapply(collect, \(x) as.numeric(x['SEM']))
+                SEs <- sapply(collect, \(x) as.numeric(x['SE']))
                 diff <- post.scores - pre.scores
                 plot(diff ~ rng, pch=16, ylab=expression(theta[post]-theta[pre]),
                      las=1, ylim=c(diff[1]-SEs[1],

Original file line number	Diff line number	Diff line change
`@@ -440,7 +440,7 @@ RCI_shiny <- function(mod_pre, mod_post = NULL, main = 'Test Scores'){`
`440`	`440`	`}`
`441`	`441`	`post.scores <- sapply(collect, \(x) as.numeric(x['post.score']))`
`442`	`442`	`pre.scores <- as.numeric(collect[[1]]['pre.score'])`
`443`		`- SEs <- sapply(collect, \(x) as.numeric(x['SEM']))`
	`443`	`+ SEs <- sapply(collect, \(x) as.numeric(x['SE']))`
`444`	`444`	`diff <- post.scores - pre.scores`
`445`	`445`	`plot(diff ~ rng, pch=16, ylab=expression(theta[post]-theta[pre]),`
`446`	`446`	`las=1, ylim=c(diff[1]-SEs[1],`