Add back code for xtable.lagImpact

git-svn-id: svn://scm.r-forge.r-project.org/svnroot/xtable@107 edb9625f-4e0d-4859-8d74-9fd3b1da38cb

diff --git a/pkg/NAMESPACE b/pkg/NAMESPACE
index c912d904e1256f5cc3aa40c1baa92fb34054e407..f5c4c6987a5c21ca17ba87af5d236e8d57813866 100644 (file)
--- a/pkg/NAMESPACE
+++ b/pkg/NAMESPACE
@@ -53,7 +53,7 @@ S3method("xtable", "summary.gmsar")
 S3method("xtable", "stsls")
 S3method("xtable", "summary.stsls")
 S3method("xtable", "sarlm.pred")
-###S3method("xtable", "lagImpact")
+S3method("xtable", "lagImpact")
 S3method("xtable", "splm")
 S3method("xtable", "summary.splm")
 S3method("xtable", "sphet")

diff --git a/pkg/R/xtable.R b/pkg/R/xtable.R
index 6cf0e17240674044544804af08bb82ba99a10181..4f1973df0b4f37c5d207397c7d49abf22b5ae162 100644 (file)
--- a/pkg/R/xtable.R
+++ b/pkg/R/xtable.R
@@ -399,14 +399,14 @@ xtable.sarlm.pred <- function(x, caption = NULL, label = NULL, align = NULL,
 ### This method removed because of the need to copy code to pass CRAN checks
 ### lagImpactMat is neither exported nor documented in spdep
 
-### lagImpact objects
-## xtable.lagImpact <- function(x, caption = NULL, label = NULL, align = NULL,
-##                              digits = NULL, display = NULL,
-##                              auto = FALSE, ...) {
-##   xtable(spdep:::lagImpactMat(x), caption = caption, label = label,
-##          align = align, digits = digits,
-##          display = display, auto = auto, ...)
-## }
+###lagImpact objects
+xtable.lagImpact <- function(x, caption = NULL, label = NULL, align = NULL,
+                             digits = NULL, display = NULL,
+                             auto = FALSE, ...) {
+  xtable(lagImpactMat(x), caption = caption, label = label,
+         align = align, digits = digits,
+         display = display, auto = auto, ...)
+}
 
 ### package splm
 ### splm objects

diff --git a/pkg/man/xtable-internal.Rd b/pkg/man/xtable-internal.Rd
index afd47283ea38aab6c1195ee48c757dd10ebd0c82..a57ab00175b96b163768cef1dad9ddf6391c79d7 100644 (file)
--- a/pkg/man/xtable-internal.Rd
+++ b/pkg/man/xtable-internal.Rd
@@ -1,5 +1,6 @@
 \name{xtable-internal}\r
 \alias{xtableLSMeans}\r
+\alias{lagImpactMat}\r
 \r
 \title{Internal xtable Functions}\r
 \description{\r

diff --git a/pkg/vignettes/OtherPackagesGallery.Rnw b/pkg/vignettes/OtherPackagesGallery.Rnw
index fff3c4073c2e1869dd96b5750be7f0dd84bff401..ffd5f9523acf3716b88bc8fefd331fe3917d650c 100644 (file)
--- a/pkg/vignettes/OtherPackagesGallery.Rnw
+++ b/pkg/vignettes/OtherPackagesGallery.Rnw
@@ -147,27 +147,23 @@ predictor types.
 xtable(p2)\r
 @ %def\r
 \r
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\r
-%% xtable.lagImpactMat removed because of problems with unexported function\r
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\r
+\subsubsection{\code{lagImpact} objects}\r
+\label{sec:codelagimpact-objects}\r
 \r
-%% \subsubsection{\code{lagImpact} objects}\r
-%% \label{sec:codelagimpact-objects}\r
+The \code{xtable} method returns the values of direct, indirect and\r
+total impacts for all the variables in the model. The class\r
+\code{lagImpact} has two different sets of attributes according to if\r
+simulations are used. But the \code{xtable} method always returns the\r
+three components of the non-simulation case.\r
 \r
-%% The \code{xtable} method returns the values of direct, indirect and\r
-%% total impacts for all the variables in the model. The class\r
-%% \code{lagImpact} have two different sets of attributes according to if\r
-%% simulations are used. But the \code{xtable} method always returns the\r
-%% three components of the non-simulation case.\r
-\r
-%% <<xtablelagimpactexact, results = 'asis'>>=\r
-%% xtable(imp.exact)\r
-%% @ %def\r
+<<xtablelagimpactexact, results = 'asis'>>=\r
+xtable(imp.exact)\r
+@ %def\r
 \r
-%% \p\r
-%% <<xtablelagimpactmcmc, results = 'asis'>>=\r
-%% xtable(imp.sim)\r
-%% @ %def\r
+\p\r
+<<xtablelagimpactmcmc, results = 'asis'>>=\r
+xtable(imp.sim)\r
+@ %def\r
 \r
 \r
 \subsubsection{\code{spautolm} objects}\r
@@ -237,15 +233,12 @@ xtable(GM)
 @ %def\r
 \r
 \r
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\r
-%% xtable.lagImpactMat removed because of problems with unexported function\r
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\r
 \r
-%% The \code{xtable} method works the same on impacts of \code{splm} models.\r
+The \code{xtable} method works the same on impacts of \code{splm} models.\r
 \r
-%% <<xtablesplmimpacts, results = 'asis'>>=\r
-%% xtable(imp.spml)\r
-%% @ %def\r
+<<xtablesplmimpacts, results = 'asis'>>=\r
+xtable(imp.spml)\r
+@ %def\r
 \r
 \subsection{The package \pkg{sphet}}\r
 \label{sec:package-pkgsphet}\r
@@ -280,14 +273,12 @@ xtable(res.stsls)
 xtable(res.gstsls)\r
 @ %def\r
 \r
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\r
-%% xtable.lagImpactMat removed because of problems with unexported function\r
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\r
-%% \code{sphet} also provides a method for computing impacts.\r
 \r
-%% <<xtablesphetimpacts, results = 'asis'>>=\r
-%% xtable(imp.gstsls)\r
-%% @ %def\r
+\code{sphet} also provides a method for computing impacts.\r
+\r
+<<xtablesphetimpacts, results = 'asis'>>=\r
+xtable(imp.gstsls)\r
+@ %def\r
 \r
 \section{The \pkg{zoo} package}\r
 \label{sec:pkgzoo-package}\r