Exporting summary plm results to latex

HI,

May be you can use library(texreg):

library(plm)

#generating some data
x <- rnorm(270)
y <- rnorm(270)
t <- rep(1:3,30)
i <- rep(1:90, each=3)

data <- data.frame(i,t,x,y)

fe <- plm(y~x,data=data,model="within")
summary(fe)
library(texreg)
fe1<-extract.plm(fe) #extract the plm object

library(xtable)

xtable(do.call(rbind,lapply(fe1,function(x) data.frame(x))))
% latex table generated in R 2.15.0 by xtable 1.7-0 package
% Wed Oct 10 14:59:10 2012
\begin{table}[ht]
\begin{center}
\begin{tabular}{rr}
  \hline
 & x \\
  \hline
Estimate & -0.03 \\
  Std. Error & 0.08 \\
  Pr($>$$|$t$|$) & 0.68 \\
  R\$\verb|^|2\$ & 0.00 \\
  Adj. R\$\verb|^|2\$ & 0.00 \\
  Num. obs. & 270.00 \\
   \hline
\end{tabular}
\end{center}
\end{table}
#Another example.  In this case, you can create two tables from the zz1 list
data("Produc", package = "plm")
    zz <- plm(log(gsp) ~ log(pcap) + log(pc) + log(emp) + unemp, 
data = Produc, index = c("state","year"))
zz1<-extract.plm(zz)


 lapply(lapply(zz1,function(x) data.frame(x)),xtable)
[[1]]
% latex table generated in R 2.15.0 by xtable 1.7-0 package
% Wed Oct 10 15:08:02 2012
\begin{table}[ht]
\begin{center}
\begin{tabular}{rrrr}
  \hline
 & Estimate & Std..Error & Pr...t.. \\
  \hline
log(pcap) & -0.03 & 0.03 & 0.37 \\
  log(pc) & 0.29 & 0.03 & 0.00 \\
  log(emp) & 0.77 & 0.03 & 0.00 \\
  unemp & -0.01 & 0.00 & 0.00 \\
   \hline
\end{tabular}
\end{center}
\end{table}

[[2]]
% latex table generated in R 2.15.0 by xtable 1.7-0 package
% Wed Oct 10 15:08:02 2012
\begin{table}[ht]
\begin{center}
\begin{tabular}{rr}
  \hline
 & x \\
  \hline
R\$\verb|^|2\$ & 0.94 \\
  Adj. R\$\verb|^|2\$ & 0.88 \\
  Num. obs. & 816.00 \\
   \hline
\end{tabular}
\end{center}
\end{table}


Hope it helps.

A.K.







----- Original Message -----
From: Sebastian Barfort <sb3730 at nyu.edu>
To: r-help at r-project.org
Cc:
Sent: Wednesday, October 10, 2012 1:07 PM
Subject: [R] Exporting summary plm results to latex

Dear all,

I am trying to export my fixed effect results to Latex. I am using 
the plm package with the summary function. However, it does not look 
like apsrtable, stargazer, or any other package can accompany using 
the plm package.

I am interested in a classic table with the coefficient in one row 
followed by the standard error in paranthesis in the next row and 
stars by the coefficient to show relevant coefficient level.

coefficient 1     xxx**
            (xxx)

Here is a reproducible example:

library(plm)

#generating some data
x <- rnorm(270)
y <- rnorm(270)
t <- rep(1:3,30)
i <- rep(1:90, each=3)

data <- data.frame(i,t,x,y)

fe <- plm(y~x,data=data,model="within")
summary(fe)

If there is an alternative to using the plm package that works with 
any of the export to latex packages, I would be very interested to 
know. Otherwise, any ideas of how to solve this problem are very 
welcome. I almost exclusively use fixed effect panel models, and the 
problem of exporting results to Latex is one of the things 
preventing me from switching entirely from Stata to R.


Kind regards,
Sebastian


    [[alternative HTML version deleted]]