[Vinecopula-commits] r88 - pkg/R

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

Author: tnagler
Date: 2015-03-28 14:29:18 +0100 (Sat, 28 Mar 2015)
New Revision: 88

Modified:
   pkg/R/RVinePartialcorr.R
Log:
fix issues with CRAN-check

Modified: pkg/R/RVinePartialcorr.R
===================================================================
--- pkg/R/RVinePartialcorr.R	2015-03-28 13:07:23 UTC (rev 87)
+++ pkg/R/RVinePartialcorr.R	2015-03-28 13:29:18 UTC (rev 88)
@@ -39,9 +39,8 @@
     
     if (d <= 2) 
         return(corMat)
-    
     pp <- matrix(0, d, d)
-    
+        
     oldRVM <- RVM
     oldOrder <- diag(RVM$Matrix)
     if (any(oldOrder != length(oldOrder):1)) {
@@ -101,7 +100,9 @@
     ## sanity checks
     stopifnot(is(RVM, "RVineMatrix"))
     stopifnot(all(RVM$family %in% c(0, 1, 2)))
-    
+    if (is.null(RVM$names))
+        RVM$names <- paste("V", 1:d, sep = "")
+        
     ## store variable names and set to V1:5 if any non-default name occurs
     oldNames <- RVM$names
     if (!all(oldNames %in% paste("V", 1:d, sep = "")))