[Vinecopula-commits] r23 - pkg/R

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

Author: ulf
Date: 2013-09-17 13:34:50 +0200 (Tue, 17 Sep 2013)
New Revision: 23

Modified:
   pkg/R/BiCopSelect.r
Log:
Kleiner Fehler in der BiCopSelect. Hier wird als default alle Familien getestet. Auch die 41,51,61 und 71, die aber sehr eingeschraengt sind. Hier ist bei einem Anwender ein Fehler aufgetretten. habe jetzt das familyset reduziert, wenn familyset=NA gesetzt wurde.

Modified: pkg/R/BiCopSelect.r
===================================================================
--- pkg/R/BiCopSelect.r	2013-08-28 07:39:19 UTC (rev 22)
+++ pkg/R/BiCopSelect.r	2013-09-17 11:34:50 UTC (rev 23)
@@ -11,7 +11,7 @@
   if(any(u2>1) || any(u2<0)) 
     stop("Data has to be in the interval [0,1].")	
   if(any(is.na(familyset)))
-    familyset <- c(1:10,13,14,16:20,23,24,26:30,33,34,36:40,41,51,61,71)
+    familyset <- c(1:10,13,14,16:20,23,24,26:30,33,34,36:40)
   if(any(!(familyset %in% c(0,1:10,13,14,16:20,23,24,26:30,33,34,36:40,41,51,61,71))))
     stop("Copula family not implemented.")
   if(selectioncrit != "AIC" && selectioncrit != "BIC")