[Vinecopula-commits] r22 - pkg/R

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

Author: ulf
Date: 2013-08-28 09:39:19 +0200 (Wed, 28 Aug 2013)
New Revision: 22

Modified:
   pkg/R/RVineStructureSelect.r
Log:
Ich hab noch einen Fehler im C-vine gefunden. Hier hat er mit Sparse-Matrizen gearbeite, was einerseits dazu gefuehrt hat, dass er das "Matrix" und "lattice" Paket nachgeladen hat und zum anderen hat er eine Fehler geliefert, weil er auf einer Sparse-matrix die Funktion "colSum" nicht anwenden konnte.

Modified: pkg/R/RVineStructureSelect.r
===================================================================
--- pkg/R/RVineStructureSelect.r	2013-08-27 09:43:49 UTC (rev 21)
+++ pkg/R/RVineStructureSelect.r	2013-08-28 07:39:19 UTC (rev 22)
@@ -88,7 +88,7 @@
 	}
 	else if(mode == "CVine")
 	{
-		M = abs(get.adjacency(g,attr="weight"))
+		M = abs(get.adjacency(g,attr="weight",sparse=0))
 		sumtaus = rowSums(M)
 		root = which.max(sumtaus)