mirror of
https://github.com/agdamsbo/FreesearchR.git
synced 2025-09-12 18:09:39 +02:00
41 lines
1.1 KiB
R
41 lines
1.1 KiB
R
|
#' Create table of regression model
|
||
|
|
#'
|
||
|
|
#' @param data regression model
|
||
|
|
#' @param args.list list of arguments passed to 'fun'.
|
||
|
|
#' @param fun function to use for table creation. Default is "gtsummary::tbl_regression".
|
||
|
|
#'
|
||
|
|
#' @return object of standard class for fun
|
||
|
|
#' @export
|
||
|
|
#'
|
||
|
|
#' @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",
|
||
|
|
#' 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()
|
||
|
|
regression_table <- function(data, args.list = NULL, fun = "gtsummary::tbl_regression") {
|
||
|
|
|
||
|
|
if (any(c(length(class(data))!=1, class(data)!="lm"))){
|
||
|
|
args.list <- c(args.list,list(exponentiate=TRUE))
|
||
|
|
}
|
||
|
|
|
||
|
|
out <- do.call(getfun(fun), c(list(x = data), args.list))
|
||
|
|
return(out)
|
||
|
|
}
|