[Vinecopula-commits] r124 - pkg/R

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

Author: tnagler
Date: 2015-08-24 18:47:02 +0200 (Mon, 24 Aug 2015)
New Revision: 124

Modified:
   pkg/R/BiCopName.r
Log:
* vectorized BiCopName

Modified: pkg/R/BiCopName.r
===================================================================
--- pkg/R/BiCopName.r	2015-08-24 16:46:34 UTC (rev 123)
+++ pkg/R/BiCopName.r	2015-08-24 16:47:02 UTC (rev 124)
@@ -1,7 +1,10 @@
 BiCopName <- function(family, short = TRUE) {
     if (is.logical(short) == FALSE) 
         stop("'short' has to be a logical variable.")
-    
+    sapply(family, fam_name, short = short)
+}
+
+fam_name <- function(family, short) {
     fam <- NA
     
     if (is.numeric(family)) {
@@ -284,5 +287,6 @@
     }
     if (is.na(fam)) 
         stop("Family not implemented.")
-    return(fam)
+    
+    fam
 }
\ No newline at end of file