Объект Purtest - Как сохранить вывод как текстовый файл?

Question

Мне было интересно, есть ли способ сохранить purtest - выводить как LaTeXфайл?

Как вы можете видеть в примере кода, я уже пытался произвести его через Stargazer. Тем не менее stargazer функция не поддерживает purtest-class,

library(plm)
library(stargazer)

dat <- data.frame(entity = c(rep("a",10),rep("b",10)),year = 
rep(1970:1979,2),value = rnorm(20))
pdat <- pdata.frame(dat,index = c("entity","year"))

res <- purtest(object = pdat$value,test = "ips",exo = "intercept",pmax = 1)

stargazer(summary(res),type = "latex")

Я знаю, что можно извлечь значения вручную, сохранить их в data.frame и в конечном итоге сохранить data.frame через print.xtable как LaTeX файл. Но, возможно, есть какое-то аккуратное решение проблемы.

Answer 1

Библиотека Stargazer имеет множество проверок, ограничивающих классы, которые можно использовать. Класс "purtest" не включен, но поскольку Stargazer поддерживает экспорт класса "matrix", можно обойти ограничения. Например:

    # the problem
    library(plm)
    library(stargazer)

    dat <- data.frame(entity = c(rep("a",10),rep("b",10)),year = 
                        rep(1970:1979,2),value = rnorm(20))
    pdat <- pdata.frame(dat,index = c("entity","year"))

    res <- purtest(object = pdat$value,test = "ips",exo = "intercept",pmax = 1)


    # One solution: extract the parametars and place them in the matrix:
    a = unlist(res$idres[[1]])
    b = unlist(res$idres[[2]])
    all =  rbind(a, b)
    class(all) <- c("matrix")

    stargazer(all,type = "latex",align = T) 
    # need to align , else you get strange double dollar signs