[Splm-commits] r16 - pkg

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

Author: gpiras
Date: 2009-10-13 15:59:46 +0200 (Tue, 13 Oct 2009)
New Revision: 16

Removed:
   pkg/Ggsararsp.R
Log:
eliminate all functions erroneously  uploaded

Deleted: pkg/Ggsararsp.R
===================================================================
--- pkg/Ggsararsp.R	2009-10-13 13:58:27 UTC (rev 15)
+++ pkg/Ggsararsp.R	2009-10-13 13:59:46 UTC (rev 16)
@@ -1,22 +0,0 @@
-`Ggsararsp` <-
-function (W, u, zero.policy = FALSE) 
-{
-      n <- length(u)
-      tt<-matrix(0,n,1)
-      tr<-sum(unlist(W$weights)^2)
-      wu<-lag.listw(W,u)
-      wwu<-lag.listw(W,wu)
-    	uu <- crossprod(u, u)
-    	uwu <- crossprod(u, wu)
- 	uwpuw <- crossprod(wu, wu)
-    	uwwu <- crossprod(u, wwu)
-    	wwupwu <- crossprod(wwu, wu)
-    	wwupwwu <- crossprod(wwu, wwu)
-    	bigG <- matrix(0, 3, 3)
-    	bigG[, 1] <- c(2 * uwu, 2 * wwupwu, (uwwu + uwpuw))/n
-    	bigG[, 2] <-  -c(uwpuw, wwupwwu, wwupwu)/n
-    	bigG[, 3] <- c(1, tr/n, 0)
-    	litg <- c(uu, uwpuw, uwu)/n
-    	list(bigG = bigG, litg = litg)
-}
-