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")
}
Run the code above in your browser using DataLab