compareGroups :: export2xls () не производит трехстороннюю таблицу в r - PullRequest
Новая
       14

compareGroups :: export2xls () не производит трехстороннюю таблицу в r

0 голосов
/ 14 февраля 2020

Я пытаюсь создать 3-стороннюю таблицу (качество для публикации) в r с помощью функции пакета compareGroups. Получение ожидаемых результатов с помощью функции export2md (). Однако export2xls () не работает, поскольку не знает, как работать с классом 'cbind.createTable'.

Data- 

a = rnorm(26, 10, 2)
b = rpois(26, 2)
c = sample(x = c("1","2"),size = 26, replace = TRUE)
d = sample(x = c("m","f"),size = 26, replace = TRUE)
e = rnorm(26, 100, 2)
f = sample(x = c("aa","bb"),size = 26, replace = TRUE)

df = data.frame(a,b,c,d,e,f)
head(df)

          a b c d         e  f
1  7.614582 6 1 m  98.99821 aa
2  6.775513 3 1 m  98.93930 bb
3 12.131150 1 1 f 101.18118 bb
4 13.396142 2 2 f  98.22694 aa
5 13.159700 3 1 m  98.89859 bb
6 10.297052 4 2 f 101.12435 bb

3-сторонняя таблица 

res1 = compareGroups(f ~ a + b + e + f, data = df, subset = d == "m", method = 1)
rest1 = createTable(res1, show.all = TRUE)

res2 = compareGroups(f ~ a + b + e + f, data = df, subset = d == "f", method = 1)
rest2 = createTable(res2, show.all = TRUE)

restab = cbind(rest1, rest2)

# rmarkdown html table
export2md(restab)   # works nicely

rmarkdown html table

Но мне нужна таблица Excel. 

export2xls(restab)
Error in export2xls(restab) : x cannot be of class 'cbind.createTable'

Любые предложения!

...