[Splm-commits] r23 - pkg

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

Author: gpiras
Date: 2009-10-13 16:01:51 +0200 (Tue, 13 Oct 2009)
New Revision: 23

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

Deleted: pkg/arg2.R
===================================================================
--- pkg/arg2.R	2009-10-13 14:01:39 UTC (rev 22)
+++ pkg/arg2.R	2009-10-13 14:01:51 UTC (rev 23)
@@ -1,16 +0,0 @@
-`arg2` <-
-function (rhopar, v, ss,SS,T,TW, verbose = FALSE) 
-{
-	Ga<-cbind( (1/(T-1))*ss^2,0)
-	Gb<-cbind( 0, SS^2)
-	Gc<-rbind(Ga,Gb)
-	Gamma<-kronecker(Gc,TW) 
-	Gammainv<-solve(Gamma)
-    vv <-  v$GG %*% c(rhopar[1], rhopar[1]^2, rhopar[2], rhopar[3]) - v$gg
-    value <- t(vv)%*% Gammainv %*% vv
-    if (verbose) 
-	cat("function:", value, "rho:", rhopar[1], "sig2:", 
-		rhopar[2], "\n")
-    value
-}
-