[Splm-commits] r22 - pkg

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

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

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

Deleted: pkg/arg1.R
===================================================================
--- pkg/arg1.R	2009-10-13 14:01:27 UTC (rev 21)
+++ pkg/arg1.R	2009-10-13 14:01:39 UTC (rev 22)
@@ -1,16 +0,0 @@
-`arg1` <-
-function (rhopar, v, ss,SS,T, verbose = FALSE) 
-{
-	Ga<-cbind( (1/(T-1))*ss^2,0)
-	Gb<-cbind( 0, SS^2)
-	Gc<-rbind(Ga,Gb)
-	Gamma<-kronecker(Gc,diag(3)) 
-	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
-}
-