[Splm-commits] r117 - in pkg: R man

[noreply at r-forge.r-project.org]

Author: the_sculler
Date: 2011-05-26 08:37:37 +0200 (Thu, 26 May 2011)
New Revision: 117

Removed:
   pkg/R/summary.effects.splm.R.old
   pkg/man/summary.effects.splm.Rd.old
Log:
Removed old files summary.effects. ... .old


Deleted: pkg/R/summary.effects.splm.R.old
===================================================================
--- pkg/R/summary.effects.splm.R.old	2011-05-25 19:37:26 UTC (rev 116)
+++ pkg/R/summary.effects.splm.R.old	2011-05-26 06:37:37 UTC (rev 117)
@@ -1,50 +0,0 @@
-`summary.effects.splm` <-
-function(object,digits= max(3, getOption("digits") - 2),width=getOption("width"),
-output=TRUE,filename='effects.csv',...){
-	effects<-object$effects
-if(effects=="tpfe"){
-	  cat("\nIntercept:\n")
-  printCoefmat(object$INTTable,digits=digits, signif.legend=FALSE)
-
- cat("\n")  
-
-	  cat("\nTime period fixed effects:\n")
-  printCoefmat(object$TETable,digits=digits)
-
-out<-rbind(object$INTTable,object$TETable)
-if(output) write.csv(out, "filename")
-
-}
-	
-if(effects=="spfe"){
-	  cat("\nIntercept:\n")
-  printCoefmat(object$INTTable,digits=digits,signif.legend=FALSE)
-
- cat("\n")  
- 
-	  cat("\nSpatial fixed effects:\n")
-  printCoefmat(object$SETable,digits=digits)
-
-
-out<-rbind(object$INTTable,object$SETable)
-if(output) write.csv(out, "filename")
-}
-if(effects=="sptpfe"){
-	  cat("\nIntercept:\n")
-  printCoefmat(object$INTTable,digits=digits,signif.legend=FALSE)
-
- cat("\n")  
- 
-	  cat("\nSpatial fixed effects:\n")
-  printCoefmat(object$SETable,digits=digits,signif.legend=FALSE)
- 
-  cat("\n")  
-   
-  	  cat("\nTime period fixed effects:\n")
-  printCoefmat(object$TETable,digits=digits)
-
-out<-rbind(object$INTTable,object$SETable,object$TETable)
-if(output) write.csv(out, "filename")
-}
-	}
-

Deleted: pkg/man/summary.effects.splm.Rd.old
===================================================================
--- pkg/man/summary.effects.splm.Rd.old	2011-05-25 19:37:26 UTC (rev 116)
+++ pkg/man/summary.effects.splm.Rd.old	2011-05-26 06:37:37 UTC (rev 117)
@@ -1,56 +0,0 @@
-\name{summary.effects.splm}
-\alias{print.effects.splm}
-\title{print method for class effects.splm}
-
-\description{
-Methods used for printing objects of class 'effects.splm'
-}
-
-\usage{
-
-\method{print}{effects.splm}(object,digits= max(3, getOption("digits") - 2),
-width=getOption("width"), output=TRUE,filename="effect.csv",...)
-}
-
-\arguments{
-\item{object}{an object of class 'effects.splm'}
-\item{digits}{minimal number of significant digits, see \code{\link{print.default}}}
-\item{output}{logical. If TRUE fixed effects are written to a file}
-\item{filename}{the name of the file used to write the fixed effects}
-}
-
-
-\details{
-Method to print fixed effects 
-extracted by the function \code{\link{effects.splm}}.
-
-A file is also written to disk (unless the option 
-output is set to FALSE)
-}
-
-\value{
-A csv file containing the fixed effects and the intercept (when present)
-}
-
-\references{
-}
-
-\seealso{
-  \code{\link{spreml}}, \code{\link{lagsarlm}},
-  \code{\link{errorsarlm}}, \code{\link{spreml}}, \code{\link{effects}}
-}
-\author{Gianfranco Piras\email{gpiras at mac.com}}
-
-\examples{
-data(Produc, package = "Ecdat") 
-data(usaww)
-Produc <- Produc[Produc$year<1975, ] 
-fm <- log(gsp) ~ log(pcap) + log(pc) + log(emp) + unemp 
-lag <- spfeml(fm, data = Produc, listw = mat2listw(usaww), effects = "sptpfe", method = "eigen", quiet = TRUE) 
-summary(lag)
-eff <- effects(lag) 
-err <- spfeml(fm, data = Produc, listw = mat2listw(usaww), model = "error", effects = "tpfe", method = "eigen", quiet = TRUE)
-summary(err)
-eff <- effects(err) 
-summary(eff)
-}
\ No newline at end of file