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

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

0 голосов
/ 05 декабря 2018

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

Как вы можете видеть в примере кода, я уже пытался произвести его череззвездочет.Однако функция 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 файла.Но, возможно, есть какое-то аккуратное решение проблемы.

1 Ответ

0 голосов
/ 08 декабря 2018

Библиотека 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
...