Возможно, что некоторые операции по пересадке на объекте Felm будут успешными. Вы несете ответственность за определение того, не создает ли такая химера насилие по отношению к важным базовым предположениям:
# with the first example in the lfe::
est <- lfe::felm(y ~ x+x2+G(id)+G(firm))
class(est) <- c("felm", "lm")
require(xtable)
xtable(est)
#----------------
% latex table generated in R 2.14.0 by xtable 1.6-0 package
% Sun Mar 18 10:42:04 2012
\begin{table}[ht]
\begin{center}
\begin{tabular}{rrrrr}
\hline
& Estimate & Std. Error & t value & Pr($>$$|$t$|$) \\
\hline
x & 1.0937 & 0.0971 & 11.26 & 0.0000 \\
x2 & 0.4597 & 0.1177 & 3.91 & 0.0002 \\
\hline
\end{tabular}
\end{center}
\end{table}
Прежде чем приступить к приживлению этого класса, я посмотрел на объект felm, чтобы увидеть, похож ли он на объект lm, и это так. Также кажется, что summary(est)
возвращает вывод, который ожидал бы пользователь lm. (Это на самом деле не делает то, что вы просили. Единственное, что он делает - это позволяет функциям, нацеленным на lm, пытаться выполнять свою работу.)
Я не особо успешный пользователь методов S4, но, следуя паре ссылок на странице справки и создавая моды, это то, что я получил после игнорирования предупреждения:
require(stats)
setOldClass(c("felm", "lm"))
setMethod("modelInfo", "summary.felm", function(x) {
env <- sys.parent()
digits <- evalq(digits, env)
model.info <- list(
"$N$"=formatC(sum(x$df[1:2]),format="d"),
"Resid. sd" = formatC(x$sigma,format="f",digits=digits))
class(model.info) <- "model.info"
return(model.info)
} )
#in method for ‘modelInfo’ with signature ‘"summary.felm"’: no definition for class “summary.felm”
#[1] "modelInfo"
apsrtable(est,est, digits=1, align="l",
stars=1, model.counter=0, order="rl",
coef.rows=1, col.hspace="3em", float="sidewaystable")
#----------------------
\begin{sidewaystable}[!ht]
\caption{}
\label{}
\begin{tabular}{ l D{.}{.}{1}D{.}{.}{1}@{\hspace{3em}}D{.}{.}{1}D{.}{.}{1} }
\hline
& \multicolumn{ 2 }{ c }{ Model 0 } & \multicolumn{ 2 }{ c }{ Model 1 } \\ \hline
x & 1.1 ^* & (0.1) & 1.1 ^* & (0.1) \\
x2 & 0.5 ^* & (0.1) & 0.5 ^* & (0.1) \\
$N$ & \multicolumn{2}{c}{172} & \multicolumn{2}{c}{172}\\
Resid. sd & \multicolumn{2}{c}{ } & \multicolumn{2}{c}{ } \\ \hline
\multicolumn{5}{l}{\footnotesize{Robust standard errors in parentheses}}\\
\multicolumn{5}{l}{\footnotesize{$^*$ indicates significance at $p< 0.05 $}}
\end{tabular}
\end{sidewaystable}