[Vinecopula-commits] r20 - pkg/R

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

Author: ulf
Date: 2013-08-27 09:52:03 +0200 (Tue, 27 Aug 2013)
New Revision: 20

Modified:
   pkg/R/RVineStructureSelect.r
Log:


Modified: pkg/R/RVineStructureSelect.r
===================================================================
--- pkg/R/RVineStructureSelect.r	2013-08-27 07:29:02 UTC (rev 19)
+++ pkg/R/RVineStructureSelect.r	2013-08-27 07:52:03 UTC (rev 20)
@@ -8,20 +8,20 @@
 	d = dim(data)[1]
 	
 	if(dim(data)[1]<2) stop("Number of observations has to be at least 2.")
-  if(d<2) stop("Dimension has to be at least 2.")
-  if(any(data>1) || any(data<0)) stop("Data has be in the interval [0,1].")
+	if(d<2) stop("Dimension has to be at least 2.")
+	if(any(data>1) || any(data<0)) stop("Data has be in the interval [0,1].")
 	
-  if(!is.na(familyset[1])) for(i in 1:length(familyset)) if(!(familyset[i] %in% c(0,1:10,13,14,16:20,23,24,26:30,33,34,36:40))) stop("Copula family not implemented.")  
-  if(selectioncrit != "AIC" && selectioncrit != "BIC") stop("Selection criterion not implemented.")
-  if(level < 0 & level > 1) stop("Significance level has to be between 0 and 1.")
+	if(!is.na(familyset[1])) for(i in 1:length(familyset)) if(!(familyset[i] %in% c(0,1:10,13,14,16:20,23,24,26:30,33,34,36:40))) stop("Copula family not implemented.")  
+	if(selectioncrit != "AIC" && selectioncrit != "BIC") stop("Selection criterion not implemented.")
+	if(level < 0 & level > 1) stop("Significance level has to be between 0 and 1.")
   	
 	if(is.null(colnames(data))) colnames(data) = paste("V",1:n,sep="") 
 
-  if(is.na(trunclevel)) trunclevel = d
+	if(is.na(trunclevel)) trunclevel = d
 
 	RVine = list(Tree = NULL, Graph=NULL)
 
-  if(trunclevel == 0) familyset = 0
+	if(trunclevel == 0) familyset = 0
 	
 	g = initializeFirstGraph(data,weights)
 	mst = findMaximumTauTree(g,mode=type)