[Vinecopula-commits] r35 - pkg/R

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

Author: ulf
Date: 2013-10-30 09:24:34 +0100 (Wed, 30 Oct 2013)
New Revision: 35

Modified:
   pkg/R/RVineStructureSelect.r
Log:
An einer Stelle hatte ich noch vergessen die neuen Copulas einzufuegen.

Modified: pkg/R/RVineStructureSelect.r
===================================================================
--- pkg/R/RVineStructureSelect.r	2013-10-18 14:15:51 UTC (rev 34)
+++ pkg/R/RVineStructureSelect.r	2013-10-30 08:24:34 UTC (rev 35)
@@ -368,11 +368,11 @@
 {
 
 	out=BiCopSelect(u1,u2,familyset,selectioncrit,indeptest,level,weights=weights)
-	if(out$family%in%c(23,24,26:30))
+	if(out$family%in%c(23,24,26:30,124,224))
 	{
 		out$family=out$family+10
 	}
-	else if(out$family%in%c(33,34,36:40))
+	else if(out$family%in%c(33,34,36:40,134,234))
 	{
 		out$family=out$family-10
 	}