Nothing
# This file is a generated template, your changes will not be overwritten
jmvreliClass <- if (requireNamespace('jmvcore', quietly=TRUE)) R6::R6Class(
"jmvreliClass",
inherit = jmvreliBase,
private = list(
.run = function() {
if(length(self$options$get("vars")) >= 2){
variables <- self$options$get("vars")
dataset <- select(self$data, all_of(variables))
icctab <- self$results$icctab
vartab <- self$results$vartab
plot <- self$results$plots
cl <- self$options$get("ciWidth")/100
res = reli_stats(data = dataset,
wide = TRUE,
col.names = variables,
conf.level = cl)
for(i in 1:6){
icctab$setRow(rowNo=i, values=res$icc[i,])
}
vartbl = data.frame(comp=rownames(res$var_comp),
variance = res$var_comp$variance,
percent = res$var_comp$percent)
for(i in 1:4){
vartab$setRow(rowNo=i, values=vartbl[i,])
}
tex_res = paste0(
"Coefficient of Variation (%): ",
round(res$cv$est*100,2),
"<br>",
"Standard Error of Measurement (SEM): ",
round(res$SEM$est,4),
"<br>",
"Standard Error of the Estimate (SEE): ",
round(res$SEE$est,4),
"<br>",
"Standard Error of Prediction (SEP): ",
round(res$SEP$est,4),
"<br>"
)
plot$setState(res)
#citethis = paste0(
# "Weir (2005). Quantifying test-retest reliability using the intraclass correlation coefficient and the SEM.
# The Journal of Strength & Conditioning Research, 19(1), 231-240.
# <https://doi.org/10.1519/15184.1>"
#)
#self$results$cites$setContent(citethis)
self$results$text$setContent(tex_res)
}
},
.plot=function(image, ggtheme, ...) {
if (is.null(image$state))
return(FALSE)
plotpr = plot(image$state)+
ggtheme +
theme(legend.position = "none")
#theme(#strip.text = element_text(face = "bold", size = 11),
#legend.text = element_text(face = "bold", size = 11),
#legend.title = element_text(face = "bold", size = 11),
#axis.text.x = element_text(face = "bold", size = 11),
#axis.text.y = element_text(face = "bold", size = 11),
#axis.title.x = element_text(face = "bold", size = 11),
#panel.grid.major = element_blank(),
#panel.grid.minor = element_blank(),
#panel.background = element_rect(fill = "transparent",colour = NA),
#plot.background = element_rect(fill = "transparent",colour = NA),
#legend.background = element_rect(fill = "transparent",colour = NA),
#legend.position = "none")
print(plotpr)
return(TRUE)
})
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.