if (FALSE) { # identical(Sys.getenv("NOT_CRAN"), "true")
# setup
set.seed(123)
library(statsExpressions)
# extract a tidy data frame
df <- tidy_model_parameters(lm(wt ~ am * cyl, mtcars))
# create a column containing expression; the expression will depend on `statistic`
tidy_model_expressions(df, statistic = "t")
tidy_model_expressions(df, statistic = "z")
tidy_model_expressions(df, statistic = "chi")
# f-statistic (requires a data frame with `df`, `df.error`, and effect-size columns)
df_f <- tidy_model_parameters(
aov(wt ~ cyl, mtcars),
es_type = "omega",
table_wide = TRUE
)
tidy_model_expressions(df_f, statistic = "f")
df_f_eta <- tidy_model_parameters(
aov(wt ~ cyl, mtcars),
es_type = "eta",
table_wide = TRUE
)
tidy_model_expressions(df_f_eta, statistic = "f", effsize.type = "eta")
}
Run the code above in your browser using DataLab