[spcopula-commits] r117 - pkg/R

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

Author: ben_graeler
Date: 2013-11-27 16:21:31 +0100 (Wed, 27 Nov 2013)
New Revision: 117

Modified:
   pkg/R/spVineCopula.R
Log:
- adopted dSpvine for new neighbourhood index structure

Modified: pkg/R/spVineCopula.R
===================================================================
--- pkg/R/spVineCopula.R	2013-11-26 13:37:30 UTC (rev 116)
+++ pkg/R/spVineCopula.R	2013-11-27 15:21:31 UTC (rev 117)
@@ -102,7 +102,7 @@
       l0 <- l0 + dCopula(u0[,c(1,i+1)], copula at spCop[[spTree]], h=h0[,i], log=T)
       u1 <- cbind(u1, dduCopula(u0[,c(1,i+1)], copula at spCop[[spTree]], h=h0[,i]))
       if (i < ncol(h0)) {
-        h1 <- cbind(h1,apply(data at index[,c(spTree,spTree+i)],1, 
+        h1 <- cbind(h1,apply(data at index[,c(spTree+1,spTree+i+1)],1, 
                              function(x) spDists(data at dataLocs[x,])[1,2]))
       }
     }