The goal of doudpackage is to Creates the “table one” of biomedical papers. Fill it with your data and the name of the variable which you’ll make the group(s) out of and it will make univariate, bivariate analysis and parse it into HTML.
You can install the development version of doudpackage from GitHub with:
# install.packages("devtools")
devtools::install_github("tiago972/doudpackage")library(doudpackage)
## basic example code
data(iris)
library(stringi)
iris$fact_1<-as.factor(as.character(sample(1:5, 150, replace = TRUE)))
n_na<-sample(1:150, 30)
iris[n_na, "fact_1"]<-NA
iris$fact_2<-as.factor(as.character(stri_rand_strings(150, 1, '[A-B]')))
iris$num<-runif(150, min = 0, max = 100)
n_na<-sample(1:150, 5)
iris[n_na, "num"]<-NA
iris_test<-descTab(iris, group = "Species", na.print = TRUE)
testParse<-parseClassFun(iris_test, levels_to_keep = list("fact_2" = "A"),
group_rows_labels = list("Size" = c("Petal.Length", "Petal.Width"),
"My_f" = c("num", "fact_2")))|
setosa |
versicolor |
virginica |
Total |
||
|---|---|---|---|---|---|
| n = 50 (33.3) | n = 50 (33.3) | n = 50 (33.3) | n = 150 | pvalue | |
| Size | |||||
| Petal.Length | 1.5 (0.2) | 4.3 (0.5) | 5.6 (0.6) | 3.8 (1.8) | < 0.001 |
| Petal.Width | 0.2 (0.1) | 1.3 (0.2) | 2 (0.3) | 1.2 (0.8) | < 0.001 |
| My_f | |||||
| fact_2, A | 24 (48) | 34 (68) | 29 (58) | 87 (58) | 0.128 |
| num | 51.2 (28.9) | 47.9 (28.5) | 48.4 (31.7) | 49.2 (29.6) | 0.837 |
| Missing values | 0 (0) | 4 (8) | 1 (2) | 5 (3) | |
| fact_1, 1 | 8 (16) | 5 (10) | 10 (20) | 23 (15.3) | 0.698 |
| fact_1, 2 | 8 (16) | 5 (10) | 3 (6) | 16 (10.7) | 0.698 |
| fact_1, 3 | 5 (10) | 8 (16) | 10 (20) | 23 (15.3) | 0.698 |
| fact_1, 4 | 9 (18) | 10 (20) | 9 (18) | 28 (18.7) | 0.698 |
| fact_1, 5 | 9 (18) | 10 (20) | 11 (22) | 30 (20) | 0.698 |
| Missing values | 11 (22) | 12 (24) | 7 (14) | 30 (20) | |
| Sepal.Length | 5 (0.4) | 5.9 (0.5) | 6.6 (0.6) | 5.8 (0.8) | < 0.001 |
| Sepal.Width | 3.4 (0.4) | 2.8 (0.3) | 3 (0.3) | 3.1 (0.4) | < 0.001 |
Need a high-speed mirror for your open-source project?
Contact our mirror admin team at info@clientvps.com.
This archive is provided as a free public service to the community.
Proudly supported by infrastructure from VPSPulse , RxServers , BuyNumber , UnitVPS , OffshoreName and secure payment technology by ArionPay.