[Vinecopula-commits] r127 - in pkg: R man

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

Author: tnagler
Date: 2015-08-24 22:04:45 +0200 (Mon, 24 Aug 2015)
New Revision: 127

Modified:
   pkg/R/RVineStructureSelect2.R
   pkg/man/RVineStructureSelect2.Rd
Log:
* fix bug in code and manual for RVineStructureSelect2

Modified: pkg/R/RVineStructureSelect2.R
===================================================================
--- pkg/R/RVineStructureSelect2.R	2015-08-24 20:03:25 UTC (rev 126)
+++ pkg/R/RVineStructureSelect2.R	2015-08-24 20:04:45 UTC (rev 127)
@@ -115,10 +115,9 @@
             
             # find edge with minimal weight
             m <- apply(as.matrix(A[, tree]), 2, min)
-            cnt <- sum(m == min(m))  # count ties
             a <- apply(as.matrix(A[, tree]), 2, 
                        function(x) order(rank(x)))[1, ]
-            b <- order(rank(m))[cnt]
+            b <- order(rank(m))[1]
             j <- tree[b]
             i <- a[b]
             

Modified: pkg/man/RVineStructureSelect2.Rd
===================================================================
--- pkg/man/RVineStructureSelect2.Rd	2015-08-24 20:03:25 UTC (rev 126)
+++ pkg/man/RVineStructureSelect2.Rd	2015-08-24 20:04:45 UTC (rev 127)
@@ -1,5 +1,5 @@
-\name{RVineStructureSelect}
-\alias{RVineStructureSelect}
+\name{RVineStructureSelect2}
+\alias{RVineStructureSelect2}
 
 \title{Sequential Specification of R- and C-Vine Copula Models}