mirror of
https://github.com/agdamsbo/FreesearchR.git
synced 2025-09-12 09:59:39 +02:00
This commit is contained in:
parent
361296531e
commit
7d9e5a8f00
3 changed files with 5 additions and 2 deletions
|
@ -1,6 +1,6 @@
|
||||||
Package: FreesearchR
|
Package: FreesearchR
|
||||||
Title: Browser Based Data Analysis
|
Title: Browser Based Data Analysis
|
||||||
Version: 25.4.1
|
Version: 25.4.2
|
||||||
Authors@R:
|
Authors@R:
|
||||||
person("Andreas Gammelgaard", "Damsbo", , "agdamsbo@clin.au.dk", role = c("aut", "cre"),
|
person("Andreas Gammelgaard", "Damsbo", , "agdamsbo@clin.au.dk", role = c("aut", "cre"),
|
||||||
comment = c(ORCID = "0000-0002-7559-1154"))
|
comment = c(ORCID = "0000-0002-7559-1154"))
|
||||||
|
|
|
@ -17,6 +17,7 @@ Deparses expression as string, substitutes native pipe and adds assign
|
||||||
}
|
}
|
||||||
\examples{
|
\examples{
|
||||||
list(
|
list(
|
||||||
|
as.symbol(paste0("mtcars$","mpg")),
|
||||||
rlang::call2(.fn = "select", !!!list(c("cyl", "disp")), .ns = "dplyr"),
|
rlang::call2(.fn = "select", !!!list(c("cyl", "disp")), .ns = "dplyr"),
|
||||||
rlang::call2(.fn = "default_parsing", .ns = "FreesearchR")
|
rlang::call2(.fn = "default_parsing", .ns = "FreesearchR")
|
||||||
) |>
|
) |>
|
||||||
|
|
|
@ -9,7 +9,7 @@
|
||||||
\usage{
|
\usage{
|
||||||
regression_model(
|
regression_model(
|
||||||
data,
|
data,
|
||||||
outcome.str,
|
outcome.str = NULL,
|
||||||
auto.mode = FALSE,
|
auto.mode = FALSE,
|
||||||
formula.str = NULL,
|
formula.str = NULL,
|
||||||
args.list = NULL,
|
args.list = NULL,
|
||||||
|
@ -165,6 +165,8 @@ gtsummary::trial |>
|
||||||
dplyr::bind_rows()
|
dplyr::bind_rows()
|
||||||
ms <- regression_model_uv_list(data = default_parsing(mtcars), outcome.str = "mpg", fun.descr = "Linear regression model")
|
ms <- regression_model_uv_list(data = default_parsing(mtcars), outcome.str = "mpg", fun.descr = "Linear regression model")
|
||||||
ms$code
|
ms$code
|
||||||
|
ls <- regression_model_uv_list(data = default_parsing(mtcars), outcome.str = "am", fun.descr = "Logistic regression model")
|
||||||
|
ls$code
|
||||||
lapply(ms$model, broom::tidy) |> dplyr::bind_rows()
|
lapply(ms$model, broom::tidy) |> dplyr::bind_rows()
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Add table
Reference in a new issue