Распечатать «красивые» таблицы для моделей H2O в R
Есть несколько пакетов дляR
которые помогают печатать «красивые» таблицы (LaTeX / HTML / TEXT) из статистических моделей и легко сравнивать результаты спецификаций альтернативных моделей.
Некоторые из этих пакетовapsrtable
, xtable
, memisc
, texreg
, outreg
, а такжеstargazer
(примеры см. здесь:https://www.r-statistics.com/2013/01/stargazer-package-for-beautiful-latex-tables-from-r-statistical-models-output/).
Есть ли сопоставимыеR
пакет, который поддерживает модели изh2o
пакет?
Вот пример двух простых моделей GLM сh2o
которые я люблю печатать рядом друг с другом как "красивые" столы.
# Load package and setup h2o
library(h2o)
localH2O <- h2o.init(ip = 'localhost', port = 54321, max_mem_size = '4g')
# Load data
prostatePath <- system.file("extdata", "prostate.csv", package = "h2o")
prostate.hex <- h2o.importFile(path = prostatePath, destination_frame = "prostate.hex")
# Run GLMs
model.output.1 <- h2o.glm(y = "CAPSULE", x = c("RACE","PSA","DCAPS"),
training_frame = prostate.hex,family = "binomial", nfolds = 0,
alpha = 0.5, lambda_search = FALSE)
model.output.2 <- h2o.glm(y = "CAPSULE", x = c("AGE","RACE","PSA","DCAPS"),
training_frame = prostate.hex, family = "binomial", nfolds = 0,
alpha = 0.5, lambda_search = FALSE)
Вот как это будет выглядеть с обычным объектом GLM, использующимscreenreg()
отtexreg
пакет:
library(data.table)
library(texreg)
d <- fread(prostatePath)
model.output.1.glm <- glm(CAPSULE ~ RACE + PSA + DCAPS, data=d)
model.output.2.glm <- glm(CAPSULE ~ AGE + RACE + PSA + DCAPS, data=d)
screenreg(list(model.output.1.glm, model.output.2.glm))