From noreply at r-forge.r-project.org  Fri Dec 20 15:09:49 2013
From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org)
Date: Fri, 20 Dec 2013 15:09:49 +0100 (CET)
Subject: [Vinecopula-commits] r45 - pkg/R
Message-ID: <20131220140949.C676C181085@r-forge.r-project.org>

Author: ulf
Date: 2013-12-20 15:09:49 +0100 (Fri, 20 Dec 2013)
New Revision: 45

Modified:
   pkg/R/RVineCopSelect.r
   pkg/R/RVineMLE.R
Log:
Fehler in MLE gefunden f?\195?\188r Tawn (Copy and paste Fehler)

Modified: pkg/R/RVineCopSelect.r
===================================================================
--- pkg/R/RVineCopSelect.r	2013-11-27 15:59:29 UTC (rev 44)
+++ pkg/R/RVineCopSelect.r	2013-12-20 14:09:49 UTC (rev 45)
@@ -86,9 +86,9 @@
 	}
 
   varnames = paste("V", 1:n, sep="")
+ 
+ print(Types)
   
-  print(Types)
-  
   RVM = RVineMatrix(Mold, family=Types, par=Params, par2=Params2, names=varnames)
 
 	return(RVM)

Modified: pkg/R/RVineMLE.R
===================================================================
--- pkg/R/RVineMLE.R	2013-11-27 15:59:29 UTC (rev 44)
+++ pkg/R/RVineMLE.R	2013-12-20 14:09:49 UTC (rev 45)
@@ -205,7 +205,7 @@
       		}else if(Copula.Types[todo[i]] %in% c(30,40)){ #rotated bb8
       				lb[nParams+i] = -max.BB$BB8[2]
         				ub[nParams+i] = -0.001
-      		}else if(Copula.Types[i] %in% c(104,114,124,134,204,214,224,234)){ #Tawn
+      		}else if(Copula.Types[todo[i]] %in% c(104,114,124,134,204,214,224,234)){ #Tawn
       				lb[nParams+i] = 0.001
       				ub[nParams+i] = 0.99
       		}