R/gamljlm.h.R
In gamlj/gamlj: GAMLj Suite for linear models
# This file is automatically generated, you probably don't want to edit this
gamljlmOptions <- if (requireNamespace("jmvcore", quietly=TRUE)) R6::R6Class(
"gamljlmOptions",
inherit = jmvcore::Options,
public = list(
initialize = function(
.caller = "lm",
.interface = "jamovi",
dep = NULL,
factors = NULL,
covs = NULL,
model_terms = NULL,
nested_terms = NULL,
comparison = FALSE,
fixed_intercept = TRUE,
nested_intercept = TRUE,
omnibus = "F",
estimates_ci = TRUE,
betas_ci = FALSE,
ci_width = 95,
donotrun = FALSE,
ci_method = "wald",
boot_r = 1000,
contrasts = NULL,
show_contrastnames = FALSE,
show_contrastcodes = FALSE,
vcov = FALSE,
plot_x = NULL,
plot_z = NULL,
plot_by = NULL,
plot_raw = FALSE,
plot_yscale = FALSE,
plot_xoriginal = FALSE,
plot_black = FALSE,
plot_around = "ci",
plot_extremes = FALSE,
plot_jn = FALSE,
emmeans = NULL,
posthoc = NULL,
posthoc_ci = FALSE,
simple_x = NULL,
simple_mods = NULL,
simple_interactions = FALSE,
covs_scale = NULL,
scale_missing = "complete",
covs_conditioning = "mean_sd",
ccra_steps = 1,
ccm_value = 1,
ccp_value = 25,
covs_scale_labels = "labels",
adjust = list(
"bonf"),
mute = FALSE,
posthoc_es = list(
"dm"),
d_ci = FALSE,
model_type = "lm",
es = list(
"beta",
"etap"),
homo_test = FALSE,
colli_test = FALSE,
qq_plot = FALSE,
norm_test = FALSE,
norm_plot = FALSE,
resid_plot = FALSE,
intercept_info = FALSE,
es_info = FALSE,
dep_scale = "none",
se_method = "standard",
robust_method = "HC3", ...) {
super$initialize(
package="GAMLj3",
name="gamljlm",
requiresData=TRUE,
...)
private$...caller <- jmvcore::OptionString$new(
".caller",
.caller,
default="lm",
hidden=TRUE)
private$...interface <- jmvcore::OptionString$new(
".interface",
.interface,
default="jamovi",
hidden=TRUE)
private$..dep <- jmvcore::OptionVariable$new(
"dep",
dep,
default=NULL,
permitted=list(
"factor",
"numeric"))
private$..factors <- jmvcore::OptionVariables$new(
"factors",
factors,
suggested=list(
"nominal"),
permitted=list(
"factor"),
default=NULL)
private$..covs <- jmvcore::OptionVariables$new(
"covs",
covs,
suggested=list(
"continuous",
"ordinal"),
permitted=list(
"numeric"),
default=NULL)
private$..model_terms <- jmvcore::OptionTerms$new(
"model_terms",
model_terms,
default=NULL)
private$..nested_terms <- jmvcore::OptionTerms$new(
"nested_terms",
nested_terms,
default=NULL)
private$..comparison <- jmvcore::OptionBool$new(
"comparison",
comparison,
default=FALSE)
private$..fixed_intercept <- jmvcore::OptionBool$new(
"fixed_intercept",
fixed_intercept,
default=TRUE)
private$..nested_intercept <- jmvcore::OptionBool$new(
"nested_intercept",
nested_intercept,
default=TRUE)
private$..omnibus <- jmvcore::OptionList$new(
"omnibus",
omnibus,
default="F",
options=list(
"F",
"LRT"))
private$..estimates_ci <- jmvcore::OptionBool$new(
"estimates_ci",
estimates_ci,
default=TRUE)
private$..betas_ci <- jmvcore::OptionBool$new(
"betas_ci",
betas_ci,
default=FALSE)
private$..ci_width <- jmvcore::OptionNumber$new(
"ci_width",
ci_width,
min=50,
max=99.9,
default=95)
private$..donotrun <- jmvcore::OptionBool$new(
"donotrun",
donotrun,
default=FALSE)
private$..ci_method <- jmvcore::OptionList$new(
"ci_method",
ci_method,
default="wald",
options=list(
"wald",
"quantile",
"bcai"))
private$..boot_r <- jmvcore::OptionNumber$new(
"boot_r",
boot_r,
min=1,
default=1000)
private$..contrasts <- jmvcore::OptionArray$new(
"contrasts",
contrasts,
items="(factors)",
default=NULL,
template=jmvcore::OptionGroup$new(
"contrasts",
NULL,
elements=list(
jmvcore::OptionVariable$new(
"var",
NULL,
content="$key"),
jmvcore::OptionList$new(
"type",
NULL,
options=list(
"simple",
"deviation",
"dummy",
"difference",
"helmert",
"repeated",
"polynomial"),
default="simple"))))
private$..show_contrastnames <- jmvcore::OptionBool$new(
"show_contrastnames",
show_contrastnames,
default=FALSE)
private$..show_contrastcodes <- jmvcore::OptionBool$new(
"show_contrastcodes",
show_contrastcodes,
default=FALSE)
private$..vcov <- jmvcore::OptionBool$new(
"vcov",
vcov,
default=FALSE)
private$..plot_x <- jmvcore::OptionVariable$new(
"plot_x",
plot_x,
default=NULL)
private$..plot_z <- jmvcore::OptionVariable$new(
"plot_z",
plot_z,
default=NULL)
private$..plot_by <- jmvcore::OptionVariables$new(
"plot_by",
plot_by,
default=NULL)
private$..plot_raw <- jmvcore::OptionBool$new(
"plot_raw",
plot_raw,
default=FALSE)
private$..plot_yscale <- jmvcore::OptionBool$new(
"plot_yscale",
plot_yscale,
default=FALSE)
private$..plot_xoriginal <- jmvcore::OptionBool$new(
"plot_xoriginal",
plot_xoriginal,
default=FALSE)
private$..plot_black <- jmvcore::OptionBool$new(
"plot_black",
plot_black,
default=FALSE)
private$..plot_around <- jmvcore::OptionList$new(
"plot_around",
plot_around,
options=list(
"none",
"ci",
"se"),
default="ci")
private$..plot_extremes <- jmvcore::OptionBool$new(
"plot_extremes",
plot_extremes,
default=FALSE)
private$..plot_jn <- jmvcore::OptionBool$new(
"plot_jn",
plot_jn,
default=FALSE)
private$..emmeans <- jmvcore::OptionTerms$new(
"emmeans",
emmeans,
default=NULL)
private$..posthoc <- jmvcore::OptionTerms$new(
"posthoc",
posthoc,
default=NULL)
private$..posthoc_ci <- jmvcore::OptionBool$new(
"posthoc_ci",
posthoc_ci,
default=FALSE)
private$..simple_x <- jmvcore::OptionVariable$new(
"simple_x",
simple_x,
default=NULL)
private$..simple_mods <- jmvcore::OptionVariables$new(
"simple_mods",
simple_mods,
default=NULL)
private$..simple_interactions <- jmvcore::OptionBool$new(
"simple_interactions",
simple_interactions,
default=FALSE)
private$..covs_scale <- jmvcore::OptionArray$new(
"covs_scale",
covs_scale,
items="(covs)",
default=NULL,
template=jmvcore::OptionGroup$new(
"covs_scale",
NULL,
elements=list(
jmvcore::OptionVariable$new(
"var",
NULL,
content="$key"),
jmvcore::OptionList$new(
"type",
NULL,
options=list(
"centered",
"standardized",
"none"),
default="centered"))))
private$..scale_missing <- jmvcore::OptionList$new(
"scale_missing",
scale_missing,
options=list(
"complete",
"colwise"),
default="complete")
private$..covs_conditioning <- jmvcore::OptionList$new(
"covs_conditioning",
covs_conditioning,
options=list(
"mean_sd",
"percent",
"range"),
default="mean_sd")
private$..ccra_steps <- jmvcore::OptionNumber$new(
"ccra_steps",
ccra_steps,
default=1,
min=1,
max=50)
private$..ccm_value <- jmvcore::OptionNumber$new(
"ccm_value",
ccm_value,
default=1)
private$..ccp_value <- jmvcore::OptionNumber$new(
"ccp_value",
ccp_value,
default=25,
min=5,
max=50)
private$..covs_scale_labels <- jmvcore::OptionList$new(
"covs_scale_labels",
covs_scale_labels,
options=list(
"labels",
"values",
"values_labels",
"uvalues",
"uvalues_labels"),
default="labels")
private$..adjust <- jmvcore::OptionNMXList$new(
"adjust",
adjust,
options=list(
"none",
"bonf",
"tukey",
"holm",
"scheffe",
"sidak"),
default=list(
"bonf"))
private$..mute <- jmvcore::OptionBool$new(
"mute",
mute,
default=FALSE)
private$..predicted <- jmvcore::OptionOutput$new(
"predicted")
private$..residuals <- jmvcore::OptionOutput$new(
"residuals")
private$..posthoc_es <- jmvcore::OptionNMXList$new(
"posthoc_es",
posthoc_es,
options=list(
"dm",
"ds",
"g"),
default=list(
"dm"))
private$..d_ci <- jmvcore::OptionBool$new(
"d_ci",
d_ci,
default=FALSE)
private$..model_type <- jmvcore::OptionList$new(
"model_type",
model_type,
hidden=TRUE,
options=list(
"lm"),
default="lm")
private$..es <- jmvcore::OptionNMXList$new(
"es",
es,
options=list(
"beta",
"eta",
"etap",
"omega",
"omegap",
"epsilon",
"epsilonp"),
default=list(
"beta",
"etap"))
private$..homo_test <- jmvcore::OptionBool$new(
"homo_test",
homo_test,
default=FALSE)
private$..colli_test <- jmvcore::OptionBool$new(
"colli_test",
colli_test,
default=FALSE)
private$..qq_plot <- jmvcore::OptionBool$new(
"qq_plot",
qq_plot,
default=FALSE)
private$..norm_test <- jmvcore::OptionBool$new(
"norm_test",
norm_test,
default=FALSE)
private$..norm_plot <- jmvcore::OptionBool$new(
"norm_plot",
norm_plot,
default=FALSE)
private$..resid_plot <- jmvcore::OptionBool$new(
"resid_plot",
resid_plot,
default=FALSE)
private$..intercept_info <- jmvcore::OptionBool$new(
"intercept_info",
intercept_info,
default=FALSE)
private$..es_info <- jmvcore::OptionBool$new(
"es_info",
es_info,
default=FALSE)
private$..dep_scale <- jmvcore::OptionList$new(
"dep_scale",
dep_scale,
options=list(
"none",
"centered",
"standardized"),
default="none")
private$..se_method <- jmvcore::OptionList$new(
"se_method",
se_method,
default="standard",
options=list(
"standard",
"robust"))
private$..robust_method <- jmvcore::OptionList$new(
"robust_method",
robust_method,
default="HC3",
options=list(
"HC3",
"HC2",
"HC1",
"HC0"))
self$.addOption(private$...caller)
self$.addOption(private$...interface)
self$.addOption(private$..dep)
self$.addOption(private$..factors)
self$.addOption(private$..covs)
self$.addOption(private$..model_terms)
self$.addOption(private$..nested_terms)
self$.addOption(private$..comparison)
self$.addOption(private$..fixed_intercept)
self$.addOption(private$..nested_intercept)
self$.addOption(private$..omnibus)
self$.addOption(private$..estimates_ci)
self$.addOption(private$..betas_ci)
self$.addOption(private$..ci_width)
self$.addOption(private$..donotrun)
self$.addOption(private$..ci_method)
self$.addOption(private$..boot_r)
self$.addOption(private$..contrasts)
self$.addOption(private$..show_contrastnames)
self$.addOption(private$..show_contrastcodes)
self$.addOption(private$..vcov)
self$.addOption(private$..plot_x)
self$.addOption(private$..plot_z)
self$.addOption(private$..plot_by)
self$.addOption(private$..plot_raw)
self$.addOption(private$..plot_yscale)
self$.addOption(private$..plot_xoriginal)
self$.addOption(private$..plot_black)
self$.addOption(private$..plot_around)
self$.addOption(private$..plot_extremes)
self$.addOption(private$..plot_jn)
self$.addOption(private$..emmeans)
self$.addOption(private$..posthoc)
self$.addOption(private$..posthoc_ci)
self$.addOption(private$..simple_x)
self$.addOption(private$..simple_mods)
self$.addOption(private$..simple_interactions)
self$.addOption(private$..covs_scale)
self$.addOption(private$..scale_missing)
self$.addOption(private$..covs_conditioning)
self$.addOption(private$..ccra_steps)
self$.addOption(private$..ccm_value)
self$.addOption(private$..ccp_value)
self$.addOption(private$..covs_scale_labels)
self$.addOption(private$..adjust)
self$.addOption(private$..mute)
self$.addOption(private$..predicted)
self$.addOption(private$..residuals)
self$.addOption(private$..posthoc_es)
self$.addOption(private$..d_ci)
self$.addOption(private$..model_type)
self$.addOption(private$..es)
self$.addOption(private$..homo_test)
self$.addOption(private$..colli_test)
self$.addOption(private$..qq_plot)
self$.addOption(private$..norm_test)
self$.addOption(private$..norm_plot)
self$.addOption(private$..resid_plot)
self$.addOption(private$..intercept_info)
self$.addOption(private$..es_info)
self$.addOption(private$..dep_scale)
self$.addOption(private$..se_method)
self$.addOption(private$..robust_method)
}),
active = list(
.caller = function() private$...caller$value,
.interface = function() private$...interface$value,
dep = function() private$..dep$value,
factors = function() private$..factors$value,
covs = function() private$..covs$value,
model_terms = function() private$..model_terms$value,
nested_terms = function() private$..nested_terms$value,
comparison = function() private$..comparison$value,
fixed_intercept = function() private$..fixed_intercept$value,
nested_intercept = function() private$..nested_intercept$value,
omnibus = function() private$..omnibus$value,
estimates_ci = function() private$..estimates_ci$value,
betas_ci = function() private$..betas_ci$value,
ci_width = function() private$..ci_width$value,
donotrun = function() private$..donotrun$value,
ci_method = function() private$..ci_method$value,
boot_r = function() private$..boot_r$value,
contrasts = function() private$..contrasts$value,
show_contrastnames = function() private$..show_contrastnames$value,
show_contrastcodes = function() private$..show_contrastcodes$value,
vcov = function() private$..vcov$value,
plot_x = function() private$..plot_x$value,
plot_z = function() private$..plot_z$value,
plot_by = function() private$..plot_by$value,
plot_raw = function() private$..plot_raw$value,
plot_yscale = function() private$..plot_yscale$value,
plot_xoriginal = function() private$..plot_xoriginal$value,
plot_black = function() private$..plot_black$value,
plot_around = function() private$..plot_around$value,
plot_extremes = function() private$..plot_extremes$value,
plot_jn = function() private$..plot_jn$value,
emmeans = function() private$..emmeans$value,
posthoc = function() private$..posthoc$value,
posthoc_ci = function() private$..posthoc_ci$value,
simple_x = function() private$..simple_x$value,
simple_mods = function() private$..simple_mods$value,
simple_interactions = function() private$..simple_interactions$value,
covs_scale = function() private$..covs_scale$value,
scale_missing = function() private$..scale_missing$value,
covs_conditioning = function() private$..covs_conditioning$value,
ccra_steps = function() private$..ccra_steps$value,
ccm_value = function() private$..ccm_value$value,
ccp_value = function() private$..ccp_value$value,
covs_scale_labels = function() private$..covs_scale_labels$value,
adjust = function() private$..adjust$value,
mute = function() private$..mute$value,
predicted = function() private$..predicted$value,
residuals = function() private$..residuals$value,
posthoc_es = function() private$..posthoc_es$value,
d_ci = function() private$..d_ci$value,
model_type = function() private$..model_type$value,
es = function() private$..es$value,
homo_test = function() private$..homo_test$value,
colli_test = function() private$..colli_test$value,
qq_plot = function() private$..qq_plot$value,
norm_test = function() private$..norm_test$value,
norm_plot = function() private$..norm_plot$value,
resid_plot = function() private$..resid_plot$value,
intercept_info = function() private$..intercept_info$value,
es_info = function() private$..es_info$value,
dep_scale = function() private$..dep_scale$value,
se_method = function() private$..se_method$value,
robust_method = function() private$..robust_method$value),
private = list(
...caller = NA,
...interface = NA,
..dep = NA,
..factors = NA,
..covs = NA,
..model_terms = NA,
..nested_terms = NA,
..comparison = NA,
..fixed_intercept = NA,
..nested_intercept = NA,
..omnibus = NA,
..estimates_ci = NA,
..betas_ci = NA,
..ci_width = NA,
..donotrun = NA,
..ci_method = NA,
..boot_r = NA,
..contrasts = NA,
..show_contrastnames = NA,
..show_contrastcodes = NA,
..vcov = NA,
..plot_x = NA,
..plot_z = NA,
..plot_by = NA,
..plot_raw = NA,
..plot_yscale = NA,
..plot_xoriginal = NA,
..plot_black = NA,
..plot_around = NA,
..plot_extremes = NA,
..plot_jn = NA,
..emmeans = NA,
..posthoc = NA,
..posthoc_ci = NA,
..simple_x = NA,
..simple_mods = NA,
..simple_interactions = NA,
..covs_scale = NA,
..scale_missing = NA,
..covs_conditioning = NA,
..ccra_steps = NA,
..ccm_value = NA,
..ccp_value = NA,
..covs_scale_labels = NA,
..adjust = NA,
..mute = NA,
..predicted = NA,
..residuals = NA,
..posthoc_es = NA,
..d_ci = NA,
..model_type = NA,
..es = NA,
..homo_test = NA,
..colli_test = NA,
..qq_plot = NA,
..norm_test = NA,
..norm_plot = NA,
..resid_plot = NA,
..intercept_info = NA,
..es_info = NA,
..dep_scale = NA,
..se_method = NA,
..robust_method = NA)
)
gamljlmResults <- if (requireNamespace("jmvcore", quietly=TRUE)) R6::R6Class(
"gamljlmResults",
inherit = jmvcore::Group,
active = list(
model = function() private$..model,
info = function() private$.items[["info"]],
main = function() private$.items[["main"]],
posthoc = function() private$.items[["posthoc"]],
posthocEffectSize = function() private$.items[["posthocEffectSize"]],
simpleEffects = function() private$.items[["simpleEffects"]],
simpleInteractions = function() private$.items[["simpleInteractions"]],
emmeans = function() private$.items[["emmeans"]],
mainPlots = function() private$.items[["mainPlots"]],
plotnotes = function() private$.items[["plotnotes"]],
jnPlots = function() private$.items[["jnPlots"]],
jnplotnotes = function() private$.items[["jnplotnotes"]],
assumptions = function() private$.items[["assumptions"]],
predicted = function() private$.items[["predicted"]],
residuals = function() private$.items[["residuals"]]),
private = list(
..model = NA),
public=list(
initialize=function(options) {
super$initialize(
options=options,
name="",
title="General Linear Model")
private$..model <- NULL
self$add(jmvcore::Table$new(
options=options,
name="info",
title="Model Info",
columns=list(
list(
`name`="info",
`type`="text",
`title`="Info"),
list(
`name`="value",
`type`="text",
`title`=""),
list(
`name`="specs",
`type`="text",
`title`="")),
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"nested_terms",
"nested_intercept",
"comparison",
"ci_width",
"ci_method",
"boot_r"),
refs="gamlj"))
self$add(R6::R6Class(
inherit = jmvcore::Group,
active = list(
r2 = function() private$.items[["r2"]],
intercept = function() private$.items[["intercept"]],
anova = function() private$.items[["anova"]],
effectsizes = function() private$.items[["effectsizes"]],
coefficients = function() private$.items[["coefficients"]],
vcov = function() private$.items[["vcov"]],
contrastCodeTables = function() private$.items[["contrastCodeTables"]]),
private = list(),
public=list(
initialize=function(options) {
super$initialize(
options=options,
name="main",
title="Model Results")
self$add(jmvcore::Table$new(
options=options,
name="r2",
title="Model Fit",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"nested_terms",
"nested_intercept",
"comparison",
"omnibus"),
columns=list(
list(
`name`="model",
`title`="Model",
`visible`="(comparison)"),
list(
`name`="r2",
`title`="R\u00B2",
`type`="number",
`format`="zto"),
list(
`name`="ar2",
`title`="Adj. R\u00B2",
`type`="number",
`format`="zto"),
list(
`name`="df1",
`title`="df",
`type`="integer"),
list(
`name`="df2",
`title`="df (res)",
`type`="integer",
`visible`="(omnibus:F)"),
list(
`name`="f",
`title`="F",
`type`="number",
`visible`="(omnibus:F)"),
list(
`name`="test",
`title`="LRT X\u00B2",
`type`="number",
`visible`="(omnibus:LRT)"),
list(
`name`="p",
`title`="p",
`type`="number",
`format`="zto,pvalue")),
refs="goodness"))
self$add(jmvcore::Table$new(
options=options,
name="intercept",
title="Intercept Information",
visible="(intercept_info)",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"ci_width",
"ci_method",
"boot_r",
"es",
"intercept_info"),
rows=1,
columns=list(
list(
`name`="source",
`title`="",
`type`="text"),
list(
`name`="f",
`title`="F",
`type`="number"),
list(
`name`="df",
`title`="df",
`type`="integer"),
list(
`name`="p",
`title`="p",
`type`="number",
`format`="zto,pvalue"),
list(
`name`="etaSqP",
`title`="\u03B7\u00B2p",
`type`="number",
`visible`="(es:etap)",
`format`="zto"),
list(
`name`="omegaSqP",
`title`="\u03C9\u00B2p",
`type`="number",
`visible`="(es:omegap)",
`format`="zto"),
list(
`name`="epsilonSqP",
`title`="\u03B5\u00B2p",
`type`="number",
`visible`="(es:epsilonp)",
`format`="zto"))))
self$add(jmvcore::Table$new(
options=options,
name="anova",
title="ANOVA Omnibus tests",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute"),
columns=list(
list(
`name`="source",
`title`="",
`type`="text"),
list(
`name`="ss",
`title`="SS",
`type`="number",
`format`="zto"),
list(
`name`="df",
`title`="df",
`type`="integer"),
list(
`name`="f",
`title`="F",
`type`="number",
`format`="zto"),
list(
`name`="p",
`title`="p",
`type`="number",
`format`="zto,pvalue"),
list(
`name`="etaSq",
`title`="\u03B7\u00B2",
`type`="number",
`visible`="(es:eta)"),
list(
`name`="etaSqP",
`title`="\u03B7\u00B2p",
`type`="number",
`visible`="(es:etap)",
`format`="zto"),
list(
`name`="omegaSq",
`title`="\u03C9\u00B2",
`type`="number",
`visible`="(es:omega)",
`format`="zto"),
list(
`name`="omegaSqP",
`title`="\u03C9\u00B2p",
`type`="number",
`visible`="(es:omegap)",
`format`="zto"),
list(
`name`="epsilonSq",
`title`="\u03B5\u00B2",
`type`="number",
`visible`="(es:epsilon)",
`format`="zto"),
list(
`name`="epsilonSqP",
`title`="\u03B5\u00B2p",
`type`="number",
`visible`="(es:epsilonp)",
`format`="zto"))))
self$add(jmvcore::Table$new(
options=options,
name="effectsizes",
title="Effect Size Indices",
visible="(es_info)",
refs="es",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"ci_width",
"ci_method",
"boot_r"),
columns=list(
list(
`name`="effect",
`title`="Effect",
`combineBelow`=TRUE,
`type`="text"),
list(
`name`="name",
`title`="Statistics",
`type`="text"),
list(
`name`="estimate",
`title`="Estimate",
`type`="number"),
list(
`name`="est.ci.lower",
`title`="Lower",
`type`="number"),
list(
`name`="est.ci.upper",
`title`="Upper",
`type`="number"))))
self$add(jmvcore::Table$new(
options=options,
name="coefficients",
title="Parameter Estimates (Coefficients)",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"ci_width",
"ci_method",
"boot_r",
"betas_ci"),
columns=list(
list(
`name`="source",
`title`="Names",
`type`="text"),
list(
`name`="label",
`title`="Effect",
`type`="text",
`visible`="(show_contrastnames)"),
list(
`name`="estimate",
`title`="Estimate",
`type`="number",
`format`="zto"),
list(
`name`="se",
`title`="SE",
`type`="number",
`format`="zto"),
list(
`name`="est.ci.lower",
`type`="number",
`title`="Lower",
`format`="zto",
`visible`="(estimates_ci)"),
list(
`name`="est.ci.upper",
`type`="number",
`title`="Upper",
`visible`="(estimates_ci)",
`format`="zto"),
list(
`name`="beta",
`type`="number",
`title`="\u03B2",
`visible`="(es:beta)",
`format`="zto"),
list(
`name`="beta.ci.lower",
`type`="number",
`title`="Lower",
`format`="zto",
`visible`="(betas_ci)"),
list(
`name`="beta.ci.upper",
`type`="number",
`title`="Upper",
`format`="zto",
`visible`="(betas_ci)"),
list(
`name`="df",
`title`="df",
`type`="integer"),
list(
`name`="test",
`title`="t",
`type`="number",
`format`="zto"),
list(
`name`="p",
`title`="p",
`type`="number",
`format`="zto,pvalue")),
refs="parameters"))
self$add(jmvcore::Table$new(
options=options,
name="vcov",
title="Coefficients Covariances",
visible="(vcov)",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute"),
columns=list(
list(
`name`="source",
`title`="Coefficient",
`type`="text",
`visible`="(show_contrastnames)"))))
self$add(jmvcore::Array$new(
options=options,
name="contrastCodeTables",
title="Contrast Coefficients",
visible="(show_contrastcodes)",
items="(factors)",
clearWith=list(
"contrasts"),
template=jmvcore::Table$new(
options=options,
title="Factor: ___key___",
columns=list(
list(
`name`="cname",
`title`="Name",
`type`="text",
`visible`="(show_contrastnames)"),
list(
`name`="clab",
`title`="Contrast",
`type`="text"),
list(
`name`="bogus",
`title`="bogus",
`type`="text",
`visible`=FALSE)))))}))$new(options=options))
self$add(jmvcore::Array$new(
options=options,
name="posthoc",
title="Post Hoc Tests",
items="(posthoc)",
template=jmvcore::Table$new(
options=options,
title="Post Hoc comparison: ___key___",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"ci_width",
"ci_method",
"boot_r"),
columns=list(
list(
`name`="estimate",
`title`="Difference",
`type`="number",
`format`="zto"),
list(
`name`="se",
`title`="SE",
`type`="number",
`format`="zto"),
list(
`name`="est.ci.lower",
`type`="number",
`title`="Lower",
`format`="zto",
`visible`="(posthoc_ci)"),
list(
`name`="est.ci.upper",
`type`="number",
`title`="Upper",
`format`="zto",
`visible`="(posthoc_ci)"),
list(
`name`="test",
`title`="t",
`type`="number"),
list(
`name`="df",
`title`="df",
`type`="integer"),
list(
`name`="p",
`title`="p",
`type`="number",
`format`="zto,pvalue",
`visible`="(adjust:none)"),
list(
`name`="bonf",
`title`="p<sub>bonferroni</sub>",
`type`="number",
`format`="zto,pvalue",
`visible`="(adjust:bonf)"),
list(
`name`="tukey",
`title`="p<sub>tukey</sub>",
`type`="number",
`format`="zto,pvalue",
`visible`="(adjust:tukey)"),
list(
`name`="holm",
`title`="p<sub>holm</sub>",
`type`="number",
`format`="zto,pvalue",
`visible`="(adjust:holm)"),
list(
`name`="scheffe",
`title`="p<sub>scheffe</sub>",
`type`="number",
`format`="zto,pvalue",
`visible`="(adjust:scheffe)"),
list(
`name`="sidak",
`title`="p<sub>sidak</sub>",
`type`="number",
`format`="zto,pvalue",
`visible`="(adjust:sidak)")))))
self$add(jmvcore::Array$new(
options=options,
name="posthocEffectSize",
title="Comparisons effect size",
visible=FALSE,
items="(posthoc)",
template=jmvcore::Table$new(
options=options,
title="Comparisons: ___key___",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"ci_width",
"ci_method",
"boot_r",
"posthoc_es",
"d_ci"),
columns=list(
list(
`name`="estimate",
`title`="Difference",
`type`="number",
`format`="zto"),
list(
`name`="se",
`title`="SE",
`type`="number",
`format`="zto"),
list(
`name`="dm",
`title`="d<sub>mod</sub>",
`type`="number",
`visible`="(posthoc_es:dm)",
`format`="zto"),
list(
`name`="dm.ci.lower",
`type`="number",
`title`="Lower",
`visible`="(posthoc_es:dm && d_ci)",
`format`="zto"),
list(
`name`="dm.ci.upper",
`type`="number",
`title`="Upper",
`format`="zto",
`visible`="(posthoc_es:dm && d_ci)"),
list(
`name`="ds",
`title`="d<sub>sample</sub>",
`type`="number",
`format`="zto",
`visible`="(posthoc_es:ds)"),
list(
`name`="ds.ci.lower",
`type`="number",
`title`="Lower",
`format`="zto",
`visible`="(posthoc_es:ds && d_ci)"),
list(
`name`="ds.ci.upper",
`type`="number",
`title`="Upper",
`format`="zto",
`visible`="(posthoc_es:ds && d_ci)"),
list(
`name`="g",
`title`="g<sub>sample</sub>",
`type`="number",
`format`="zto",
`visible`="(posthoc_es:g)"),
list(
`name`="g.ci.lower",
`type`="number",
`title`="Lower",
`format`="zto",
`visible`="(posthoc_es:g && d_ci)"),
list(
`name`="g.ci.upper",
`type`="number",
`title`="Upper",
`format`="zto",
`visible`="(posthoc_es:g && d_ci)")))))
self$add(R6::R6Class(
inherit = jmvcore::Group,
active = list(
anova = function() private$.items[["anova"]],
coefficients = function() private$.items[["coefficients"]]),
private = list(),
public=list(
initialize=function(options) {
super$initialize(
options=options,
name="simpleEffects",
title="Simple Effects")
self$add(jmvcore::Table$new(
options=options,
name="anova",
title="ANOVA for Simple Effects of ___key___",
visible=FALSE,
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"simple_x",
"simple_mods",
"simple_scale",
"covs_conditioning",
"covs_scale_labels",
"ccp_value",
"ccm_value",
"ccra_steps"),
columns=list(
list(
`name`="test",
`title`="F",
`type`="number"),
list(
`name`="df1",
`title`="Num df",
`type`="integer"),
list(
`name`="df2",
`title`="Den df",
`type`="integer"),
list(
`name`="p",
`title`="p",
`type`="number",
`format`="zto,pvalue"),
list(
`name`="etaSq",
`title`="\u03B7\u00B2",
`type`="number",
`visible`="(es:eta)"),
list(
`name`="etaSqP",
`title`="\u03B7\u00B2p",
`type`="number",
`visible`="(es:etap)",
`format`="zto"),
list(
`name`="omegaSq",
`title`="\u03C9\u00B2",
`type`="number",
`visible`="(es:omega)",
`format`="zto"),
list(
`name`="omegaSqP",
`title`="\u03C9\u00B2p",
`type`="number",
`visible`="(es:omegap)",
`format`="zto"),
list(
`name`="epsilonSq",
`title`="\u03B5\u00B2",
`type`="number",
`visible`="(es:epsilon)",
`format`="zto"),
list(
`name`="epsilonSqP",
`title`="\u03B5\u00B2p",
`type`="number",
`visible`="(es:epsilonp)",
`format`="zto"))))
self$add(jmvcore::Table$new(
options=options,
name="coefficients",
title="Parameter Estimates for simple effects of ___key___",
visible=FALSE,
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"ci_width",
"ci_method",
"boot_r",
"simple_x",
"simple_mods",
"simple_scale",
"covs_conditioning",
"covs_scale_labels",
"ccp_value",
"ccm_value",
"ccra_steps"),
columns=list(
list(
`name`="contrast",
`title`="Effect",
`type`="text"),
list(
`name`="estimate",
`title`="Estimate",
`type`="number",
`format`="zto"),
list(
`name`="se",
`title`="SE",
`type`="number",
`format`="zto"),
list(
`name`="est.ci.lower",
`type`="number",
`title`="Lower",
`format`="zto",
`visible`="(estimates_ci)"),
list(
`name`="est.ci.upper",
`type`="number",
`title`="Upper",
`format`="zto",
`visible`="(estimates_ci)"),
list(
`name`="beta",
`type`="number",
`title`="\u03B2",
`visible`="(es:beta)",
`format`="zto"),
list(
`name`="df",
`title`="df",
`type`="integer"),
list(
`name`="test",
`title`="t",
`type`="number",
`format`="zto"),
list(
`name`="p",
`title`="p",
`type`="number",
`format`="zto,pvalue"))))}))$new(options=options))
self$add(jmvcore::Array$new(
options=options,
name="simpleInteractions",
title="Simple Interactions",
visible="(simple_interactions)",
template=R6::R6Class(
inherit = jmvcore::Group,
active = list(
anova = function() private$.items[["anova"]],
coefficients = function() private$.items[["coefficients"]]),
private = list(),
public=list(
initialize=function(options) {
super$initialize(
options=options,
name="undefined",
title="Interaction: ___key___",
clearWith=list())
self$add(jmvcore::Table$new(
options=options,
name="anova",
title="ANOVA",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"covs_conditioning",
"covs_scale_labels",
"ccp_value",
"ccm_value",
"ccra_steps",
"simple_x",
"simple_mods",
"simple_scale"),
columns=list(
list(
`name`="effect",
`title`="Effect",
`type`="text"),
list(
`name`="test",
`title`="F",
`type`="number"),
list(
`name`="df1",
`title`="df1",
`type`="integer"),
list(
`name`="df2",
`title`="df2",
`type`="integer"),
list(
`name`="p",
`title`="p",
`type`="number",
`format`="zto,pvalue"),
list(
`name`="etaSq",
`title`="\u03B7\u00B2",
`type`="number",
`visible`="(es:eta)"),
list(
`name`="etaSqP",
`title`="\u03B7\u00B2p",
`type`="number",
`visible`="(es:etap)",
`format`="zto"),
list(
`name`="omegaSq",
`title`="\u03C9\u00B2",
`type`="number",
`visible`="(es:omega)",
`format`="zto"),
list(
`name`="omegaSqP",
`title`="\u03C9\u00B2p",
`type`="number",
`visible`="(es:omegap)",
`format`="zto"),
list(
`name`="epsilonSq",
`title`="\u03B5\u00B2",
`type`="number",
`visible`="(es:epsilon)",
`format`="zto"),
list(
`name`="epsilonSqP",
`title`="\u03B5\u00B2p",
`type`="number",
`visible`="(es:epsilonp)",
`format`="zto"))))
self$add(jmvcore::Table$new(
options=options,
name="coefficients",
title="Parameter Estimates",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"ci_width",
"ci_method",
"boot_r",
"simple_x",
"simple_mods",
"simple_scale",
"covs_conditioning",
"covs_scale_labels",
"ccp_value",
"ccm_value",
"ccra_steps"),
columns=list(
list(
`name`="effect",
`title`="Effect",
`type`="text"),
list(
`name`="estimate",
`title`="Estimate",
`type`="number",
`format`="zto"),
list(
`name`="se",
`title`="SE",
`type`="number",
`format`="zto"),
list(
`name`="df",
`title`="df",
`type`="integer"),
list(
`name`="est.ci.lower",
`title`="Lower",
`type`="number",
`format`="zto"),
list(
`name`="est.ci.upper",
`title`="Upper",
`type`="number",
`format`="zto"),
list(
`name`="test",
`title`="t",
`type`="number",
`format`="zto"),
list(
`name`="p",
`title`="p",
`type`="number",
`format`="zto,pvalue"))))}))$new(options=options)))
self$add(jmvcore::Array$new(
options=options,
name="emmeans",
title="Estimated Marginal Means",
visible=FALSE,
items="(emmeans)",
template=jmvcore::Table$new(
options=options,
title="Estimate Marginal Means - ___key___",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"ci_width",
"ci_method",
"boot_r",
"covs_conditioning",
"covs_scale_labels",
"ccp_value",
"ccm_value",
"ccra_steps",
"emmeans"),
columns=list(
list(
`name`="estimate",
`title`="Mean",
`type`="number",
`format`="zto"),
list(
`name`="se",
`title`="SE",
`type`="number",
`format`="zto"),
list(
`name`="df",
`title`="df",
`type`="integer"),
list(
`name`="est.ci.lower",
`title`="Lower",
`type`="number",
`format`="zto"),
list(
`name`="est.ci.upper",
`title`="Upper",
`type`="number",
`format`="zto")))))
self$add(jmvcore::Array$new(
options=options,
name="mainPlots",
title="Results Plots",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"ci_width",
"ci_method",
"boot_r",
"covs_conditioning",
"covs_scale_labels",
"ccp_value",
"ccm_value",
"ccra_steps",
"plot_x",
"plot_z",
"plot_by",
"plot_raw",
"plot_yscale",
"plot_xoriginal",
"plot_black",
"plot_around"),
template=jmvcore::Image$new(
options=options,
title="",
renderFun=".mainPlot",
width=700,
height=400,
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"ci_width",
"ci_method",
"boot_r",
"covs_conditioning",
"covs_scale_labels",
"ccp_value",
"ccm_value",
"ccra_steps",
"plot_x",
"plot_z",
"plot_by",
"plot_raw",
"plot_yscale",
"plot_xoriginal",
"plot_black",
"plot_around"))))
self$add(jmvcore::Html$new(
options=options,
name="plotnotes",
visible=FALSE))
self$add(jmvcore::Array$new(
options=options,
name="jnPlots",
title="Johnson-Neyman Plot",
visible="(plot_jn)",
refs="interactions",
template=jmvcore::Image$new(
options=options,
title="",
renderFun=".jnPlot",
width=700,
height=400,
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"ci_width",
"ci_method",
"boot_r",
"covs_conditioning",
"covs_scale_labels",
"ccp_value",
"ccm_value",
"ccra_steps",
"plot_x",
"plot_z",
"plot_by",
"plot_raw",
"plot_yscale",
"plot_xoriginal",
"plot_black"))))
self$add(jmvcore::Html$new(
options=options,
name="jnplotnotes",
visible=FALSE))
self$add(R6::R6Class(
inherit = jmvcore::Group,
active = list(
homotest = function() private$.items[["homotest"]],
normtest = function() private$.items[["normtest"]],
collitest = function() private$.items[["collitest"]],
qqplot = function() private$.items[["qqplot"]],
normPlot = function() private$.items[["normPlot"]],
residPlot = function() private$.items[["residPlot"]]),
private = list(),
public=list(
initialize=function(options) {
super$initialize(
options=options,
name="assumptions",
title="Assumption Checks")
self$add(jmvcore::Table$new(
options=options,
name="homotest",
title="Test for Homogeneity of Residual Variance",
visible="(homo_test)",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute"),
columns=list(
list(
`name`="name",
`type`="text",
`title`="Test"),
list(
`name`="test",
`type`="number",
`title`="Statistics"),
list(
`name`="df1",
`type`="integer"),
list(
`name`="df2",
`type`="integer"),
list(
`name`="p",
`type`="number",
`format`="zto,pvalue"))))
self$add(jmvcore::Table$new(
options=options,
name="normtest",
title="Test for Normality of residuals",
visible="(norm_test)",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute"),
columns=list(
list(
`name`="name",
`title`="Test",
`type`="number"),
list(
`name`="test",
`title`="Statistics",
`type`="number"),
list(
`name`="p",
`type`="number",
`format`="zto,pvalue"))))
self$add(jmvcore::Table$new(
options=options,
name="collitest",
title="Collinearity statistics",
visible="(colli_test)",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute"),
columns=list(
list(
`name`="source",
`type`="text",
`title`="Term"),
list(
`name`="vif",
`type`="number",
`title`="VIF"),
list(
`name`="tol",
`type`="number",
`title`="Tollerance"))))
self$add(jmvcore::Image$new(
options=options,
name="qqplot",
title="Q-Q Plot",
visible="(qq_plot)",
width=450,
height=400,
renderFun=".qqPlot",
requiresData=TRUE,
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute")))
self$add(jmvcore::Image$new(
options=options,
name="normPlot",
title="Residual histogram",
visible="(norm_plot)",
width=450,
height=400,
renderFun=".normPlot",
requiresData=TRUE,
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute")))
self$add(jmvcore::Image$new(
options=options,
name="residPlot",
title="Residual-Predicted Scatterplot",
visible="(resid_plot)",
width=700,
height=700,
renderFun=".residPlot",
requiresData=TRUE,
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"plot_extremes")))}))$new(options=options))
self$add(jmvcore::Output$new(
options=options,
name="predicted",
title="Predicted Vales",
varTitle="`LM_${ dep }_PRED`",
varDescription="Predicted values",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute")))
self$add(jmvcore::Output$new(
options=options,
name="residuals",
title="Residuals Vales",
varTitle="`LM_${ dep }_RES`",
varDescription="Residuals values",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute")))},
.setModel=function(x) private$..model <- x))
gamljlmBase <- if (requireNamespace("jmvcore", quietly=TRUE)) R6::R6Class(
"gamljlmBase",
inherit = jmvcore::Analysis,
public = list(
initialize = function(options, data=NULL, datasetId="", analysisId="", revision=0) {
super$initialize(
package = "GAMLj3",
name = "gamljlm",
version = c(3,0,0),
options = options,
results = gamljlmResults$new(options=options),
data = data,
datasetId = datasetId,
analysisId = analysisId,
revision = revision,
pause = NULL,
completeWhenFilled = TRUE,
requiresMissings = FALSE,
weightsSupport = 'none')
}))
gamlj/gamlj documentation built on May 17, 2024, 11:20 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
# This file is automatically generated, you probably don't want to edit this
gamljlmOptions <- if (requireNamespace("jmvcore", quietly=TRUE)) R6::R6Class(
"gamljlmOptions",
inherit = jmvcore::Options,
public = list(
initialize = function(
.caller = "lm",
.interface = "jamovi",
dep = NULL,
factors = NULL,
covs = NULL,
model_terms = NULL,
nested_terms = NULL,
comparison = FALSE,
fixed_intercept = TRUE,
nested_intercept = TRUE,
omnibus = "F",
estimates_ci = TRUE,
betas_ci = FALSE,
ci_width = 95,
donotrun = FALSE,
ci_method = "wald",
boot_r = 1000,
contrasts = NULL,
show_contrastnames = FALSE,
show_contrastcodes = FALSE,
vcov = FALSE,
plot_x = NULL,
plot_z = NULL,
plot_by = NULL,
plot_raw = FALSE,
plot_yscale = FALSE,
plot_xoriginal = FALSE,
plot_black = FALSE,
plot_around = "ci",
plot_extremes = FALSE,
plot_jn = FALSE,
emmeans = NULL,
posthoc = NULL,
posthoc_ci = FALSE,
simple_x = NULL,
simple_mods = NULL,
simple_interactions = FALSE,
covs_scale = NULL,
scale_missing = "complete",
covs_conditioning = "mean_sd",
ccra_steps = 1,
ccm_value = 1,
ccp_value = 25,
covs_scale_labels = "labels",
adjust = list(
"bonf"),
mute = FALSE,
posthoc_es = list(
"dm"),
d_ci = FALSE,
model_type = "lm",
es = list(
"beta",
"etap"),
homo_test = FALSE,
colli_test = FALSE,
qq_plot = FALSE,
norm_test = FALSE,
norm_plot = FALSE,
resid_plot = FALSE,
intercept_info = FALSE,
es_info = FALSE,
dep_scale = "none",
se_method = "standard",
robust_method = "HC3", ...) {
super$initialize(
package="GAMLj3",
name="gamljlm",
requiresData=TRUE,
...)
private$...caller <- jmvcore::OptionString$new(
".caller",
.caller,
default="lm",
hidden=TRUE)
private$...interface <- jmvcore::OptionString$new(
".interface",
.interface,
default="jamovi",
hidden=TRUE)
private$..dep <- jmvcore::OptionVariable$new(
"dep",
dep,
default=NULL,
permitted=list(
"factor",
"numeric"))
private$..factors <- jmvcore::OptionVariables$new(
"factors",
factors,
suggested=list(
"nominal"),
permitted=list(
"factor"),
default=NULL)
private$..covs <- jmvcore::OptionVariables$new(
"covs",
covs,
suggested=list(
"continuous",
"ordinal"),
permitted=list(
"numeric"),
default=NULL)
private$..model_terms <- jmvcore::OptionTerms$new(
"model_terms",
model_terms,
default=NULL)
private$..nested_terms <- jmvcore::OptionTerms$new(
"nested_terms",
nested_terms,
default=NULL)
private$..comparison <- jmvcore::OptionBool$new(
"comparison",
comparison,
default=FALSE)
private$..fixed_intercept <- jmvcore::OptionBool$new(
"fixed_intercept",
fixed_intercept,
default=TRUE)
private$..nested_intercept <- jmvcore::OptionBool$new(
"nested_intercept",
nested_intercept,
default=TRUE)
private$..omnibus <- jmvcore::OptionList$new(
"omnibus",
omnibus,
default="F",
options=list(
"F",
"LRT"))
private$..estimates_ci <- jmvcore::OptionBool$new(
"estimates_ci",
estimates_ci,
default=TRUE)
private$..betas_ci <- jmvcore::OptionBool$new(
"betas_ci",
betas_ci,
default=FALSE)
private$..ci_width <- jmvcore::OptionNumber$new(
"ci_width",
ci_width,
min=50,
max=99.9,
default=95)
private$..donotrun <- jmvcore::OptionBool$new(
"donotrun",
donotrun,
default=FALSE)
private$..ci_method <- jmvcore::OptionList$new(
"ci_method",
ci_method,
default="wald",
options=list(
"wald",
"quantile",
"bcai"))
private$..boot_r <- jmvcore::OptionNumber$new(
"boot_r",
boot_r,
min=1,
default=1000)
private$..contrasts <- jmvcore::OptionArray$new(
"contrasts",
contrasts,
items="(factors)",
default=NULL,
template=jmvcore::OptionGroup$new(
"contrasts",
NULL,
elements=list(
jmvcore::OptionVariable$new(
"var",
NULL,
content="$key"),
jmvcore::OptionList$new(
"type",
NULL,
options=list(
"simple",
"deviation",
"dummy",
"difference",
"helmert",
"repeated",
"polynomial"),
default="simple"))))
private$..show_contrastnames <- jmvcore::OptionBool$new(
"show_contrastnames",
show_contrastnames,
default=FALSE)
private$..show_contrastcodes <- jmvcore::OptionBool$new(
"show_contrastcodes",
show_contrastcodes,
default=FALSE)
private$..vcov <- jmvcore::OptionBool$new(
"vcov",
vcov,
default=FALSE)
private$..plot_x <- jmvcore::OptionVariable$new(
"plot_x",
plot_x,
default=NULL)
private$..plot_z <- jmvcore::OptionVariable$new(
"plot_z",
plot_z,
default=NULL)
private$..plot_by <- jmvcore::OptionVariables$new(
"plot_by",
plot_by,
default=NULL)
private$..plot_raw <- jmvcore::OptionBool$new(
"plot_raw",
plot_raw,
default=FALSE)
private$..plot_yscale <- jmvcore::OptionBool$new(
"plot_yscale",
plot_yscale,
default=FALSE)
private$..plot_xoriginal <- jmvcore::OptionBool$new(
"plot_xoriginal",
plot_xoriginal,
default=FALSE)
private$..plot_black <- jmvcore::OptionBool$new(
"plot_black",
plot_black,
default=FALSE)
private$..plot_around <- jmvcore::OptionList$new(
"plot_around",
plot_around,
options=list(
"none",
"ci",
"se"),
default="ci")
private$..plot_extremes <- jmvcore::OptionBool$new(
"plot_extremes",
plot_extremes,
default=FALSE)
private$..plot_jn <- jmvcore::OptionBool$new(
"plot_jn",
plot_jn,
default=FALSE)
private$..emmeans <- jmvcore::OptionTerms$new(
"emmeans",
emmeans,
default=NULL)
private$..posthoc <- jmvcore::OptionTerms$new(
"posthoc",
posthoc,
default=NULL)
private$..posthoc_ci <- jmvcore::OptionBool$new(
"posthoc_ci",
posthoc_ci,
default=FALSE)
private$..simple_x <- jmvcore::OptionVariable$new(
"simple_x",
simple_x,
default=NULL)
private$..simple_mods <- jmvcore::OptionVariables$new(
"simple_mods",
simple_mods,
default=NULL)
private$..simple_interactions <- jmvcore::OptionBool$new(
"simple_interactions",
simple_interactions,
default=FALSE)
private$..covs_scale <- jmvcore::OptionArray$new(
"covs_scale",
covs_scale,
items="(covs)",
default=NULL,
template=jmvcore::OptionGroup$new(
"covs_scale",
NULL,
elements=list(
jmvcore::OptionVariable$new(
"var",
NULL,
content="$key"),
jmvcore::OptionList$new(
"type",
NULL,
options=list(
"centered",
"standardized",
"none"),
default="centered"))))
private$..scale_missing <- jmvcore::OptionList$new(
"scale_missing",
scale_missing,
options=list(
"complete",
"colwise"),
default="complete")
private$..covs_conditioning <- jmvcore::OptionList$new(
"covs_conditioning",
covs_conditioning,
options=list(
"mean_sd",
"percent",
"range"),
default="mean_sd")
private$..ccra_steps <- jmvcore::OptionNumber$new(
"ccra_steps",
ccra_steps,
default=1,
min=1,
max=50)
private$..ccm_value <- jmvcore::OptionNumber$new(
"ccm_value",
ccm_value,
default=1)
private$..ccp_value <- jmvcore::OptionNumber$new(
"ccp_value",
ccp_value,
default=25,
min=5,
max=50)
private$..covs_scale_labels <- jmvcore::OptionList$new(
"covs_scale_labels",
covs_scale_labels,
options=list(
"labels",
"values",
"values_labels",
"uvalues",
"uvalues_labels"),
default="labels")
private$..adjust <- jmvcore::OptionNMXList$new(
"adjust",
adjust,
options=list(
"none",
"bonf",
"tukey",
"holm",
"scheffe",
"sidak"),
default=list(
"bonf"))
private$..mute <- jmvcore::OptionBool$new(
"mute",
mute,
default=FALSE)
private$..predicted <- jmvcore::OptionOutput$new(
"predicted")
private$..residuals <- jmvcore::OptionOutput$new(
"residuals")
private$..posthoc_es <- jmvcore::OptionNMXList$new(
"posthoc_es",
posthoc_es,
options=list(
"dm",
"ds",
"g"),
default=list(
"dm"))
private$..d_ci <- jmvcore::OptionBool$new(
"d_ci",
d_ci,
default=FALSE)
private$..model_type <- jmvcore::OptionList$new(
"model_type",
model_type,
hidden=TRUE,
options=list(
"lm"),
default="lm")
private$..es <- jmvcore::OptionNMXList$new(
"es",
es,
options=list(
"beta",
"eta",
"etap",
"omega",
"omegap",
"epsilon",
"epsilonp"),
default=list(
"beta",
"etap"))
private$..homo_test <- jmvcore::OptionBool$new(
"homo_test",
homo_test,
default=FALSE)
private$..colli_test <- jmvcore::OptionBool$new(
"colli_test",
colli_test,
default=FALSE)
private$..qq_plot <- jmvcore::OptionBool$new(
"qq_plot",
qq_plot,
default=FALSE)
private$..norm_test <- jmvcore::OptionBool$new(
"norm_test",
norm_test,
default=FALSE)
private$..norm_plot <- jmvcore::OptionBool$new(
"norm_plot",
norm_plot,
default=FALSE)
private$..resid_plot <- jmvcore::OptionBool$new(
"resid_plot",
resid_plot,
default=FALSE)
private$..intercept_info <- jmvcore::OptionBool$new(
"intercept_info",
intercept_info,
default=FALSE)
private$..es_info <- jmvcore::OptionBool$new(
"es_info",
es_info,
default=FALSE)
private$..dep_scale <- jmvcore::OptionList$new(
"dep_scale",
dep_scale,
options=list(
"none",
"centered",
"standardized"),
default="none")
private$..se_method <- jmvcore::OptionList$new(
"se_method",
se_method,
default="standard",
options=list(
"standard",
"robust"))
private$..robust_method <- jmvcore::OptionList$new(
"robust_method",
robust_method,
default="HC3",
options=list(
"HC3",
"HC2",
"HC1",
"HC0"))
self$.addOption(private$...caller)
self$.addOption(private$...interface)
self$.addOption(private$..dep)
self$.addOption(private$..factors)
self$.addOption(private$..covs)
self$.addOption(private$..model_terms)
self$.addOption(private$..nested_terms)
self$.addOption(private$..comparison)
self$.addOption(private$..fixed_intercept)
self$.addOption(private$..nested_intercept)
self$.addOption(private$..omnibus)
self$.addOption(private$..estimates_ci)
self$.addOption(private$..betas_ci)
self$.addOption(private$..ci_width)
self$.addOption(private$..donotrun)
self$.addOption(private$..ci_method)
self$.addOption(private$..boot_r)
self$.addOption(private$..contrasts)
self$.addOption(private$..show_contrastnames)
self$.addOption(private$..show_contrastcodes)
self$.addOption(private$..vcov)
self$.addOption(private$..plot_x)
self$.addOption(private$..plot_z)
self$.addOption(private$..plot_by)
self$.addOption(private$..plot_raw)
self$.addOption(private$..plot_yscale)
self$.addOption(private$..plot_xoriginal)
self$.addOption(private$..plot_black)
self$.addOption(private$..plot_around)
self$.addOption(private$..plot_extremes)
self$.addOption(private$..plot_jn)
self$.addOption(private$..emmeans)
self$.addOption(private$..posthoc)
self$.addOption(private$..posthoc_ci)
self$.addOption(private$..simple_x)
self$.addOption(private$..simple_mods)
self$.addOption(private$..simple_interactions)
self$.addOption(private$..covs_scale)
self$.addOption(private$..scale_missing)
self$.addOption(private$..covs_conditioning)
self$.addOption(private$..ccra_steps)
self$.addOption(private$..ccm_value)
self$.addOption(private$..ccp_value)
self$.addOption(private$..covs_scale_labels)
self$.addOption(private$..adjust)
self$.addOption(private$..mute)
self$.addOption(private$..predicted)
self$.addOption(private$..residuals)
self$.addOption(private$..posthoc_es)
self$.addOption(private$..d_ci)
self$.addOption(private$..model_type)
self$.addOption(private$..es)
self$.addOption(private$..homo_test)
self$.addOption(private$..colli_test)
self$.addOption(private$..qq_plot)
self$.addOption(private$..norm_test)
self$.addOption(private$..norm_plot)
self$.addOption(private$..resid_plot)
self$.addOption(private$..intercept_info)
self$.addOption(private$..es_info)
self$.addOption(private$..dep_scale)
self$.addOption(private$..se_method)
self$.addOption(private$..robust_method)
}),
active = list(
.caller = function() private$...caller$value,
.interface = function() private$...interface$value,
dep = function() private$..dep$value,
factors = function() private$..factors$value,
covs = function() private$..covs$value,
model_terms = function() private$..model_terms$value,
nested_terms = function() private$..nested_terms$value,
comparison = function() private$..comparison$value,
fixed_intercept = function() private$..fixed_intercept$value,
nested_intercept = function() private$..nested_intercept$value,
omnibus = function() private$..omnibus$value,
estimates_ci = function() private$..estimates_ci$value,
betas_ci = function() private$..betas_ci$value,
ci_width = function() private$..ci_width$value,
donotrun = function() private$..donotrun$value,
ci_method = function() private$..ci_method$value,
boot_r = function() private$..boot_r$value,
contrasts = function() private$..contrasts$value,
show_contrastnames = function() private$..show_contrastnames$value,
show_contrastcodes = function() private$..show_contrastcodes$value,
vcov = function() private$..vcov$value,
plot_x = function() private$..plot_x$value,
plot_z = function() private$..plot_z$value,
plot_by = function() private$..plot_by$value,
plot_raw = function() private$..plot_raw$value,
plot_yscale = function() private$..plot_yscale$value,
plot_xoriginal = function() private$..plot_xoriginal$value,
plot_black = function() private$..plot_black$value,
plot_around = function() private$..plot_around$value,
plot_extremes = function() private$..plot_extremes$value,
plot_jn = function() private$..plot_jn$value,
emmeans = function() private$..emmeans$value,
posthoc = function() private$..posthoc$value,
posthoc_ci = function() private$..posthoc_ci$value,
simple_x = function() private$..simple_x$value,
simple_mods = function() private$..simple_mods$value,
simple_interactions = function() private$..simple_interactions$value,
covs_scale = function() private$..covs_scale$value,
scale_missing = function() private$..scale_missing$value,
covs_conditioning = function() private$..covs_conditioning$value,
ccra_steps = function() private$..ccra_steps$value,
ccm_value = function() private$..ccm_value$value,
ccp_value = function() private$..ccp_value$value,
covs_scale_labels = function() private$..covs_scale_labels$value,
adjust = function() private$..adjust$value,
mute = function() private$..mute$value,
predicted = function() private$..predicted$value,
residuals = function() private$..residuals$value,
posthoc_es = function() private$..posthoc_es$value,
d_ci = function() private$..d_ci$value,
model_type = function() private$..model_type$value,
es = function() private$..es$value,
homo_test = function() private$..homo_test$value,
colli_test = function() private$..colli_test$value,
qq_plot = function() private$..qq_plot$value,
norm_test = function() private$..norm_test$value,
norm_plot = function() private$..norm_plot$value,
resid_plot = function() private$..resid_plot$value,
intercept_info = function() private$..intercept_info$value,
es_info = function() private$..es_info$value,
dep_scale = function() private$..dep_scale$value,
se_method = function() private$..se_method$value,
robust_method = function() private$..robust_method$value),
private = list(
...caller = NA,
...interface = NA,
..dep = NA,
..factors = NA,
..covs = NA,
..model_terms = NA,
..nested_terms = NA,
..comparison = NA,
..fixed_intercept = NA,
..nested_intercept = NA,
..omnibus = NA,
..estimates_ci = NA,
..betas_ci = NA,
..ci_width = NA,
..donotrun = NA,
..ci_method = NA,
..boot_r = NA,
..contrasts = NA,
..show_contrastnames = NA,
..show_contrastcodes = NA,
..vcov = NA,
..plot_x = NA,
..plot_z = NA,
..plot_by = NA,
..plot_raw = NA,
..plot_yscale = NA,
..plot_xoriginal = NA,
..plot_black = NA,
..plot_around = NA,
..plot_extremes = NA,
..plot_jn = NA,
..emmeans = NA,
..posthoc = NA,
..posthoc_ci = NA,
..simple_x = NA,
..simple_mods = NA,
..simple_interactions = NA,
..covs_scale = NA,
..scale_missing = NA,
..covs_conditioning = NA,
..ccra_steps = NA,
..ccm_value = NA,
..ccp_value = NA,
..covs_scale_labels = NA,
..adjust = NA,
..mute = NA,
..predicted = NA,
..residuals = NA,
..posthoc_es = NA,
..d_ci = NA,
..model_type = NA,
..es = NA,
..homo_test = NA,
..colli_test = NA,
..qq_plot = NA,
..norm_test = NA,
..norm_plot = NA,
..resid_plot = NA,
..intercept_info = NA,
..es_info = NA,
..dep_scale = NA,
..se_method = NA,
..robust_method = NA)
)
gamljlmResults <- if (requireNamespace("jmvcore", quietly=TRUE)) R6::R6Class(
"gamljlmResults",
inherit = jmvcore::Group,
active = list(
model = function() private$..model,
info = function() private$.items[["info"]],
main = function() private$.items[["main"]],
posthoc = function() private$.items[["posthoc"]],
posthocEffectSize = function() private$.items[["posthocEffectSize"]],
simpleEffects = function() private$.items[["simpleEffects"]],
simpleInteractions = function() private$.items[["simpleInteractions"]],
emmeans = function() private$.items[["emmeans"]],
mainPlots = function() private$.items[["mainPlots"]],
plotnotes = function() private$.items[["plotnotes"]],
jnPlots = function() private$.items[["jnPlots"]],
jnplotnotes = function() private$.items[["jnplotnotes"]],
assumptions = function() private$.items[["assumptions"]],
predicted = function() private$.items[["predicted"]],
residuals = function() private$.items[["residuals"]]),
private = list(
..model = NA),
public=list(
initialize=function(options) {
super$initialize(
options=options,
name="",
title="General Linear Model")
private$..model <- NULL
self$add(jmvcore::Table$new(
options=options,
name="info",
title="Model Info",
columns=list(
list(
`name`="info",
`type`="text",
`title`="Info"),
list(
`name`="value",
`type`="text",
`title`=""),
list(
`name`="specs",
`type`="text",
`title`="")),
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"nested_terms",
"nested_intercept",
"comparison",
"ci_width",
"ci_method",
"boot_r"),
refs="gamlj"))
self$add(R6::R6Class(
inherit = jmvcore::Group,
active = list(
r2 = function() private$.items[["r2"]],
intercept = function() private$.items[["intercept"]],
anova = function() private$.items[["anova"]],
effectsizes = function() private$.items[["effectsizes"]],
coefficients = function() private$.items[["coefficients"]],
vcov = function() private$.items[["vcov"]],
contrastCodeTables = function() private$.items[["contrastCodeTables"]]),
private = list(),
public=list(
initialize=function(options) {
super$initialize(
options=options,
name="main",
title="Model Results")
self$add(jmvcore::Table$new(
options=options,
name="r2",
title="Model Fit",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"nested_terms",
"nested_intercept",
"comparison",
"omnibus"),
columns=list(
list(
`name`="model",
`title`="Model",
`visible`="(comparison)"),
list(
`name`="r2",
`title`="R\u00B2",
`type`="number",
`format`="zto"),
list(
`name`="ar2",
`title`="Adj. R\u00B2",
`type`="number",
`format`="zto"),
list(
`name`="df1",
`title`="df",
`type`="integer"),
list(
`name`="df2",
`title`="df (res)",
`type`="integer",
`visible`="(omnibus:F)"),
list(
`name`="f",
`title`="F",
`type`="number",
`visible`="(omnibus:F)"),
list(
`name`="test",
`title`="LRT X\u00B2",
`type`="number",
`visible`="(omnibus:LRT)"),
list(
`name`="p",
`title`="p",
`type`="number",
`format`="zto,pvalue")),
refs="goodness"))
self$add(jmvcore::Table$new(
options=options,
name="intercept",
title="Intercept Information",
visible="(intercept_info)",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"ci_width",
"ci_method",
"boot_r",
"es",
"intercept_info"),
rows=1,
columns=list(
list(
`name`="source",
`title`="",
`type`="text"),
list(
`name`="f",
`title`="F",
`type`="number"),
list(
`name`="df",
`title`="df",
`type`="integer"),
list(
`name`="p",
`title`="p",
`type`="number",
`format`="zto,pvalue"),
list(
`name`="etaSqP",
`title`="\u03B7\u00B2p",
`type`="number",
`visible`="(es:etap)",
`format`="zto"),
list(
`name`="omegaSqP",
`title`="\u03C9\u00B2p",
`type`="number",
`visible`="(es:omegap)",
`format`="zto"),
list(
`name`="epsilonSqP",
`title`="\u03B5\u00B2p",
`type`="number",
`visible`="(es:epsilonp)",
`format`="zto"))))
self$add(jmvcore::Table$new(
options=options,
name="anova",
title="ANOVA Omnibus tests",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute"),
columns=list(
list(
`name`="source",
`title`="",
`type`="text"),
list(
`name`="ss",
`title`="SS",
`type`="number",
`format`="zto"),
list(
`name`="df",
`title`="df",
`type`="integer"),
list(
`name`="f",
`title`="F",
`type`="number",
`format`="zto"),
list(
`name`="p",
`title`="p",
`type`="number",
`format`="zto,pvalue"),
list(
`name`="etaSq",
`title`="\u03B7\u00B2",
`type`="number",
`visible`="(es:eta)"),
list(
`name`="etaSqP",
`title`="\u03B7\u00B2p",
`type`="number",
`visible`="(es:etap)",
`format`="zto"),
list(
`name`="omegaSq",
`title`="\u03C9\u00B2",
`type`="number",
`visible`="(es:omega)",
`format`="zto"),
list(
`name`="omegaSqP",
`title`="\u03C9\u00B2p",
`type`="number",
`visible`="(es:omegap)",
`format`="zto"),
list(
`name`="epsilonSq",
`title`="\u03B5\u00B2",
`type`="number",
`visible`="(es:epsilon)",
`format`="zto"),
list(
`name`="epsilonSqP",
`title`="\u03B5\u00B2p",
`type`="number",
`visible`="(es:epsilonp)",
`format`="zto"))))
self$add(jmvcore::Table$new(
options=options,
name="effectsizes",
title="Effect Size Indices",
visible="(es_info)",
refs="es",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"ci_width",
"ci_method",
"boot_r"),
columns=list(
list(
`name`="effect",
`title`="Effect",
`combineBelow`=TRUE,
`type`="text"),
list(
`name`="name",
`title`="Statistics",
`type`="text"),
list(
`name`="estimate",
`title`="Estimate",
`type`="number"),
list(
`name`="est.ci.lower",
`title`="Lower",
`type`="number"),
list(
`name`="est.ci.upper",
`title`="Upper",
`type`="number"))))
self$add(jmvcore::Table$new(
options=options,
name="coefficients",
title="Parameter Estimates (Coefficients)",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"ci_width",
"ci_method",
"boot_r",
"betas_ci"),
columns=list(
list(
`name`="source",
`title`="Names",
`type`="text"),
list(
`name`="label",
`title`="Effect",
`type`="text",
`visible`="(show_contrastnames)"),
list(
`name`="estimate",
`title`="Estimate",
`type`="number",
`format`="zto"),
list(
`name`="se",
`title`="SE",
`type`="number",
`format`="zto"),
list(
`name`="est.ci.lower",
`type`="number",
`title`="Lower",
`format`="zto",
`visible`="(estimates_ci)"),
list(
`name`="est.ci.upper",
`type`="number",
`title`="Upper",
`visible`="(estimates_ci)",
`format`="zto"),
list(
`name`="beta",
`type`="number",
`title`="\u03B2",
`visible`="(es:beta)",
`format`="zto"),
list(
`name`="beta.ci.lower",
`type`="number",
`title`="Lower",
`format`="zto",
`visible`="(betas_ci)"),
list(
`name`="beta.ci.upper",
`type`="number",
`title`="Upper",
`format`="zto",
`visible`="(betas_ci)"),
list(
`name`="df",
`title`="df",
`type`="integer"),
list(
`name`="test",
`title`="t",
`type`="number",
`format`="zto"),
list(
`name`="p",
`title`="p",
`type`="number",
`format`="zto,pvalue")),
refs="parameters"))
self$add(jmvcore::Table$new(
options=options,
name="vcov",
title="Coefficients Covariances",
visible="(vcov)",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute"),
columns=list(
list(
`name`="source",
`title`="Coefficient",
`type`="text",
`visible`="(show_contrastnames)"))))
self$add(jmvcore::Array$new(
options=options,
name="contrastCodeTables",
title="Contrast Coefficients",
visible="(show_contrastcodes)",
items="(factors)",
clearWith=list(
"contrasts"),
template=jmvcore::Table$new(
options=options,
title="Factor: ___key___",
columns=list(
list(
`name`="cname",
`title`="Name",
`type`="text",
`visible`="(show_contrastnames)"),
list(
`name`="clab",
`title`="Contrast",
`type`="text"),
list(
`name`="bogus",
`title`="bogus",
`type`="text",
`visible`=FALSE)))))}))$new(options=options))
self$add(jmvcore::Array$new(
options=options,
name="posthoc",
title="Post Hoc Tests",
items="(posthoc)",
template=jmvcore::Table$new(
options=options,
title="Post Hoc comparison: ___key___",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"ci_width",
"ci_method",
"boot_r"),
columns=list(
list(
`name`="estimate",
`title`="Difference",
`type`="number",
`format`="zto"),
list(
`name`="se",
`title`="SE",
`type`="number",
`format`="zto"),
list(
`name`="est.ci.lower",
`type`="number",
`title`="Lower",
`format`="zto",
`visible`="(posthoc_ci)"),
list(
`name`="est.ci.upper",
`type`="number",
`title`="Upper",
`format`="zto",
`visible`="(posthoc_ci)"),
list(
`name`="test",
`title`="t",
`type`="number"),
list(
`name`="df",
`title`="df",
`type`="integer"),
list(
`name`="p",
`title`="p",
`type`="number",
`format`="zto,pvalue",
`visible`="(adjust:none)"),
list(
`name`="bonf",
`title`="p<sub>bonferroni</sub>",
`type`="number",
`format`="zto,pvalue",
`visible`="(adjust:bonf)"),
list(
`name`="tukey",
`title`="p<sub>tukey</sub>",
`type`="number",
`format`="zto,pvalue",
`visible`="(adjust:tukey)"),
list(
`name`="holm",
`title`="p<sub>holm</sub>",
`type`="number",
`format`="zto,pvalue",
`visible`="(adjust:holm)"),
list(
`name`="scheffe",
`title`="p<sub>scheffe</sub>",
`type`="number",
`format`="zto,pvalue",
`visible`="(adjust:scheffe)"),
list(
`name`="sidak",
`title`="p<sub>sidak</sub>",
`type`="number",
`format`="zto,pvalue",
`visible`="(adjust:sidak)")))))
self$add(jmvcore::Array$new(
options=options,
name="posthocEffectSize",
title="Comparisons effect size",
visible=FALSE,
items="(posthoc)",
template=jmvcore::Table$new(
options=options,
title="Comparisons: ___key___",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"ci_width",
"ci_method",
"boot_r",
"posthoc_es",
"d_ci"),
columns=list(
list(
`name`="estimate",
`title`="Difference",
`type`="number",
`format`="zto"),
list(
`name`="se",
`title`="SE",
`type`="number",
`format`="zto"),
list(
`name`="dm",
`title`="d<sub>mod</sub>",
`type`="number",
`visible`="(posthoc_es:dm)",
`format`="zto"),
list(
`name`="dm.ci.lower",
`type`="number",
`title`="Lower",
`visible`="(posthoc_es:dm && d_ci)",
`format`="zto"),
list(
`name`="dm.ci.upper",
`type`="number",
`title`="Upper",
`format`="zto",
`visible`="(posthoc_es:dm && d_ci)"),
list(
`name`="ds",
`title`="d<sub>sample</sub>",
`type`="number",
`format`="zto",
`visible`="(posthoc_es:ds)"),
list(
`name`="ds.ci.lower",
`type`="number",
`title`="Lower",
`format`="zto",
`visible`="(posthoc_es:ds && d_ci)"),
list(
`name`="ds.ci.upper",
`type`="number",
`title`="Upper",
`format`="zto",
`visible`="(posthoc_es:ds && d_ci)"),
list(
`name`="g",
`title`="g<sub>sample</sub>",
`type`="number",
`format`="zto",
`visible`="(posthoc_es:g)"),
list(
`name`="g.ci.lower",
`type`="number",
`title`="Lower",
`format`="zto",
`visible`="(posthoc_es:g && d_ci)"),
list(
`name`="g.ci.upper",
`type`="number",
`title`="Upper",
`format`="zto",
`visible`="(posthoc_es:g && d_ci)")))))
self$add(R6::R6Class(
inherit = jmvcore::Group,
active = list(
anova = function() private$.items[["anova"]],
coefficients = function() private$.items[["coefficients"]]),
private = list(),
public=list(
initialize=function(options) {
super$initialize(
options=options,
name="simpleEffects",
title="Simple Effects")
self$add(jmvcore::Table$new(
options=options,
name="anova",
title="ANOVA for Simple Effects of ___key___",
visible=FALSE,
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"simple_x",
"simple_mods",
"simple_scale",
"covs_conditioning",
"covs_scale_labels",
"ccp_value",
"ccm_value",
"ccra_steps"),
columns=list(
list(
`name`="test",
`title`="F",
`type`="number"),
list(
`name`="df1",
`title`="Num df",
`type`="integer"),
list(
`name`="df2",
`title`="Den df",
`type`="integer"),
list(
`name`="p",
`title`="p",
`type`="number",
`format`="zto,pvalue"),
list(
`name`="etaSq",
`title`="\u03B7\u00B2",
`type`="number",
`visible`="(es:eta)"),
list(
`name`="etaSqP",
`title`="\u03B7\u00B2p",
`type`="number",
`visible`="(es:etap)",
`format`="zto"),
list(
`name`="omegaSq",
`title`="\u03C9\u00B2",
`type`="number",
`visible`="(es:omega)",
`format`="zto"),
list(
`name`="omegaSqP",
`title`="\u03C9\u00B2p",
`type`="number",
`visible`="(es:omegap)",
`format`="zto"),
list(
`name`="epsilonSq",
`title`="\u03B5\u00B2",
`type`="number",
`visible`="(es:epsilon)",
`format`="zto"),
list(
`name`="epsilonSqP",
`title`="\u03B5\u00B2p",
`type`="number",
`visible`="(es:epsilonp)",
`format`="zto"))))
self$add(jmvcore::Table$new(
options=options,
name="coefficients",
title="Parameter Estimates for simple effects of ___key___",
visible=FALSE,
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"ci_width",
"ci_method",
"boot_r",
"simple_x",
"simple_mods",
"simple_scale",
"covs_conditioning",
"covs_scale_labels",
"ccp_value",
"ccm_value",
"ccra_steps"),
columns=list(
list(
`name`="contrast",
`title`="Effect",
`type`="text"),
list(
`name`="estimate",
`title`="Estimate",
`type`="number",
`format`="zto"),
list(
`name`="se",
`title`="SE",
`type`="number",
`format`="zto"),
list(
`name`="est.ci.lower",
`type`="number",
`title`="Lower",
`format`="zto",
`visible`="(estimates_ci)"),
list(
`name`="est.ci.upper",
`type`="number",
`title`="Upper",
`format`="zto",
`visible`="(estimates_ci)"),
list(
`name`="beta",
`type`="number",
`title`="\u03B2",
`visible`="(es:beta)",
`format`="zto"),
list(
`name`="df",
`title`="df",
`type`="integer"),
list(
`name`="test",
`title`="t",
`type`="number",
`format`="zto"),
list(
`name`="p",
`title`="p",
`type`="number",
`format`="zto,pvalue"))))}))$new(options=options))
self$add(jmvcore::Array$new(
options=options,
name="simpleInteractions",
title="Simple Interactions",
visible="(simple_interactions)",
template=R6::R6Class(
inherit = jmvcore::Group,
active = list(
anova = function() private$.items[["anova"]],
coefficients = function() private$.items[["coefficients"]]),
private = list(),
public=list(
initialize=function(options) {
super$initialize(
options=options,
name="undefined",
title="Interaction: ___key___",
clearWith=list())
self$add(jmvcore::Table$new(
options=options,
name="anova",
title="ANOVA",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"covs_conditioning",
"covs_scale_labels",
"ccp_value",
"ccm_value",
"ccra_steps",
"simple_x",
"simple_mods",
"simple_scale"),
columns=list(
list(
`name`="effect",
`title`="Effect",
`type`="text"),
list(
`name`="test",
`title`="F",
`type`="number"),
list(
`name`="df1",
`title`="df1",
`type`="integer"),
list(
`name`="df2",
`title`="df2",
`type`="integer"),
list(
`name`="p",
`title`="p",
`type`="number",
`format`="zto,pvalue"),
list(
`name`="etaSq",
`title`="\u03B7\u00B2",
`type`="number",
`visible`="(es:eta)"),
list(
`name`="etaSqP",
`title`="\u03B7\u00B2p",
`type`="number",
`visible`="(es:etap)",
`format`="zto"),
list(
`name`="omegaSq",
`title`="\u03C9\u00B2",
`type`="number",
`visible`="(es:omega)",
`format`="zto"),
list(
`name`="omegaSqP",
`title`="\u03C9\u00B2p",
`type`="number",
`visible`="(es:omegap)",
`format`="zto"),
list(
`name`="epsilonSq",
`title`="\u03B5\u00B2",
`type`="number",
`visible`="(es:epsilon)",
`format`="zto"),
list(
`name`="epsilonSqP",
`title`="\u03B5\u00B2p",
`type`="number",
`visible`="(es:epsilonp)",
`format`="zto"))))
self$add(jmvcore::Table$new(
options=options,
name="coefficients",
title="Parameter Estimates",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"ci_width",
"ci_method",
"boot_r",
"simple_x",
"simple_mods",
"simple_scale",
"covs_conditioning",
"covs_scale_labels",
"ccp_value",
"ccm_value",
"ccra_steps"),
columns=list(
list(
`name`="effect",
`title`="Effect",
`type`="text"),
list(
`name`="estimate",
`title`="Estimate",
`type`="number",
`format`="zto"),
list(
`name`="se",
`title`="SE",
`type`="number",
`format`="zto"),
list(
`name`="df",
`title`="df",
`type`="integer"),
list(
`name`="est.ci.lower",
`title`="Lower",
`type`="number",
`format`="zto"),
list(
`name`="est.ci.upper",
`title`="Upper",
`type`="number",
`format`="zto"),
list(
`name`="test",
`title`="t",
`type`="number",
`format`="zto"),
list(
`name`="p",
`title`="p",
`type`="number",
`format`="zto,pvalue"))))}))$new(options=options)))
self$add(jmvcore::Array$new(
options=options,
name="emmeans",
title="Estimated Marginal Means",
visible=FALSE,
items="(emmeans)",
template=jmvcore::Table$new(
options=options,
title="Estimate Marginal Means - ___key___",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"ci_width",
"ci_method",
"boot_r",
"covs_conditioning",
"covs_scale_labels",
"ccp_value",
"ccm_value",
"ccra_steps",
"emmeans"),
columns=list(
list(
`name`="estimate",
`title`="Mean",
`type`="number",
`format`="zto"),
list(
`name`="se",
`title`="SE",
`type`="number",
`format`="zto"),
list(
`name`="df",
`title`="df",
`type`="integer"),
list(
`name`="est.ci.lower",
`title`="Lower",
`type`="number",
`format`="zto"),
list(
`name`="est.ci.upper",
`title`="Upper",
`type`="number",
`format`="zto")))))
self$add(jmvcore::Array$new(
options=options,
name="mainPlots",
title="Results Plots",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"ci_width",
"ci_method",
"boot_r",
"covs_conditioning",
"covs_scale_labels",
"ccp_value",
"ccm_value",
"ccra_steps",
"plot_x",
"plot_z",
"plot_by",
"plot_raw",
"plot_yscale",
"plot_xoriginal",
"plot_black",
"plot_around"),
template=jmvcore::Image$new(
options=options,
title="",
renderFun=".mainPlot",
width=700,
height=400,
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"ci_width",
"ci_method",
"boot_r",
"covs_conditioning",
"covs_scale_labels",
"ccp_value",
"ccm_value",
"ccra_steps",
"plot_x",
"plot_z",
"plot_by",
"plot_raw",
"plot_yscale",
"plot_xoriginal",
"plot_black",
"plot_around"))))
self$add(jmvcore::Html$new(
options=options,
name="plotnotes",
visible=FALSE))
self$add(jmvcore::Array$new(
options=options,
name="jnPlots",
title="Johnson-Neyman Plot",
visible="(plot_jn)",
refs="interactions",
template=jmvcore::Image$new(
options=options,
title="",
renderFun=".jnPlot",
width=700,
height=400,
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"ci_width",
"ci_method",
"boot_r",
"covs_conditioning",
"covs_scale_labels",
"ccp_value",
"ccm_value",
"ccra_steps",
"plot_x",
"plot_z",
"plot_by",
"plot_raw",
"plot_yscale",
"plot_xoriginal",
"plot_black"))))
self$add(jmvcore::Html$new(
options=options,
name="jnplotnotes",
visible=FALSE))
self$add(R6::R6Class(
inherit = jmvcore::Group,
active = list(
homotest = function() private$.items[["homotest"]],
normtest = function() private$.items[["normtest"]],
collitest = function() private$.items[["collitest"]],
qqplot = function() private$.items[["qqplot"]],
normPlot = function() private$.items[["normPlot"]],
residPlot = function() private$.items[["residPlot"]]),
private = list(),
public=list(
initialize=function(options) {
super$initialize(
options=options,
name="assumptions",
title="Assumption Checks")
self$add(jmvcore::Table$new(
options=options,
name="homotest",
title="Test for Homogeneity of Residual Variance",
visible="(homo_test)",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute"),
columns=list(
list(
`name`="name",
`type`="text",
`title`="Test"),
list(
`name`="test",
`type`="number",
`title`="Statistics"),
list(
`name`="df1",
`type`="integer"),
list(
`name`="df2",
`type`="integer"),
list(
`name`="p",
`type`="number",
`format`="zto,pvalue"))))
self$add(jmvcore::Table$new(
options=options,
name="normtest",
title="Test for Normality of residuals",
visible="(norm_test)",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute"),
columns=list(
list(
`name`="name",
`title`="Test",
`type`="number"),
list(
`name`="test",
`title`="Statistics",
`type`="number"),
list(
`name`="p",
`type`="number",
`format`="zto,pvalue"))))
self$add(jmvcore::Table$new(
options=options,
name="collitest",
title="Collinearity statistics",
visible="(colli_test)",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute"),
columns=list(
list(
`name`="source",
`type`="text",
`title`="Term"),
list(
`name`="vif",
`type`="number",
`title`="VIF"),
list(
`name`="tol",
`type`="number",
`title`="Tollerance"))))
self$add(jmvcore::Image$new(
options=options,
name="qqplot",
title="Q-Q Plot",
visible="(qq_plot)",
width=450,
height=400,
renderFun=".qqPlot",
requiresData=TRUE,
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute")))
self$add(jmvcore::Image$new(
options=options,
name="normPlot",
title="Residual histogram",
visible="(norm_plot)",
width=450,
height=400,
renderFun=".normPlot",
requiresData=TRUE,
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute")))
self$add(jmvcore::Image$new(
options=options,
name="residPlot",
title="Residual-Predicted Scatterplot",
visible="(resid_plot)",
width=700,
height=700,
renderFun=".residPlot",
requiresData=TRUE,
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute",
"plot_extremes")))}))$new(options=options))
self$add(jmvcore::Output$new(
options=options,
name="predicted",
title="Predicted Vales",
varTitle="`LM_${ dep }_PRED`",
varDescription="Predicted values",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute")))
self$add(jmvcore::Output$new(
options=options,
name="residuals",
title="Residuals Vales",
varTitle="`LM_${ dep }_RES`",
varDescription="Residuals values",
clearWith=list(
"dep",
"factors",
"covs",
"covs_scale",
"dep_scale",
"scale_missing",
"contrasts",
"model_terms",
"fixed_intercept",
"se_method",
"robust_method",
"mute")))},
.setModel=function(x) private$..model <- x))
gamljlmBase <- if (requireNamespace("jmvcore", quietly=TRUE)) R6::R6Class(
"gamljlmBase",
inherit = jmvcore::Analysis,
public = list(
initialize = function(options, data=NULL, datasetId="", analysisId="", revision=0) {
super$initialize(
package = "GAMLj3",
name = "gamljlm",
version = c(3,0,0),
options = options,
results = gamljlmResults$new(options=options),
data = data,
datasetId = datasetId,
analysisId = analysisId,
revision = revision,
pause = NULL,
completeWhenFilled = TRUE,
requiresMissings = FALSE,
weightsSupport = 'none')
}))
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.