[Splm-commits] r45 - pkg

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

Author: gpiras
Date: 2009-10-13 16:10:28 +0200 (Tue, 13 Oct 2009)
New Revision: 45

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

Deleted: pkg/listw2dgCMatrix.R
===================================================================
--- pkg/listw2dgCMatrix.R	2009-10-13 14:09:49 UTC (rev 44)
+++ pkg/listw2dgCMatrix.R	2009-10-13 14:10:28 UTC (rev 45)
@@ -1,15 +0,0 @@
-`listw2dgCMatrix` <-
-function (listw) 
-{
-    if (!inherits(listw, "listw")) 
-        stop("not a listw object")
-    n <- length(listw$neighbours)
-    cardw <- card(listw$neighbours)
-    p0 <- as.integer(c(0, cumsum(cardw)))
-    scard <- sum(cardw)
-    t<-unlist(listw$neighbours)
-    t<-t-1
-    res <- new("dgCMatrix", i = as.integer(t), p = p0,  Dim = as.integer(c(n,n)), x = unlist(listw$weights))
-    res
-}
-