Initial commit

man/regression_table.Rd

@@ -0,0 +1,45 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/regression_table.R
+\name{regression_table}
+\alias{regression_table}
+\title{Create table of regression model}
+\usage{
+regression_table(data, args.list = NULL, fun = "gtsummary::tbl_regression")
+}
+\arguments{
+\item{data}{regression model}
+
+\item{args.list}{list of arguments passed to 'fun'.}
+
+\item{fun}{function to use for table creation. Default is "gtsummary::tbl_regression".}
+}
+\value{
+object of standard class for fun
+}
+\description{
+Create table of regression model
+}
+\examples{
+gtsummary::trial |>
+  regression_model(
+    outcome.str = "stage",
+    fun = "MASS::polr"
+  ) |>
+  regression_table(args.list = list(exponentiate = TRUE))
+gtsummary::trial |>
+  regression_model(
+    outcome.str = "age",
+    outcome.factor = FALSE,
+    fun = "stats::lm",
+    formula.str = "{outcome.str}~.",
+    args.list = NULL
+  ) |>
+  regression_table()
+gtsummary::trial |>
+  regression_model(
+    outcome.str = "trt",
+    fun = "stats::glm",
+    args.list = list(family = binomial(link = "logit"))
+  ) |>
+  regression_table(args.list = list(exponentiate = TRUE))
+}