[Yuima-commits] r484 - pkg/yuima/R

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

Author: iacus
Date: 2016-10-17 04:17:48 +0200 (Mon, 17 Oct 2016)
New Revision: 484

Modified:
   pkg/yuima/R/yuima.data.R
Log:
fixed onezoo

Modified: pkg/yuima/R/yuima.data.R
===================================================================
--- pkg/yuima/R/yuima.data.R	2016-10-16 19:05:53 UTC (rev 483)
+++ pkg/yuima/R/yuima.data.R	2016-10-17 02:17:48 UTC (rev 484)
@@ -31,7 +31,10 @@
       dats <- merge(dats,dat[[i]])
     }
   }
-  colnames(dats) <- colnames(ydata at data@original.data)
+  if(length(dat)>1){
+   colnames(dats) <- colnames(ydata at data@original.data)
+  }
+  
   return(dats)
 }