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 <sb3...@nyu.edu>
To: r-help@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]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
