From 0e19b27ad5b30ecba1ec37ed67028b36ee26e888 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Benno=20Pu=CC=88tz?= <puetz@psych.mpg.de>
Date: Fri, 11 Aug 2017 18:22:11 +0200
Subject: [PATCH] test for Dunja

---
 dfl2df.R | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 dfl2df.R

diff --git a/dfl2df.R b/dfl2df.R
new file mode 100644
index 0000000..bb14d7d
--- /dev/null
+++ b/dfl2df.R
@@ -0,0 +1,38 @@
+## probably done in rbind.data.frame
+
+
+##' .. content for \description{} (no empty lines) ..
+##'
+##' .. content for \details{} ..
+##' @title
+##' @param df.list
+##' @param ...
+##' @return
+##' @author Benno Puetz \email{puetz@@mpipsykl.mpg.de}
+##' @examples
+dfl2df <- function(df.list,
+                   ...){
+    n <- length(df.list)
+    lengths <- sapply(df.list, nrow)
+    csl <- cumsum(lengths)
+    starts <- c(1, csl + 1)
+    df <- df.list[[1]]
+    for (i in n:2){
+        df[starts[i]:csl[i],] <- df.list[[i]]
+    }
+    return(df)
+}
+
+##' .. content for \description{} (no empty lines) ..
+##'
+##' .. content for \details{} ..
+##' @title
+##' @param df.list
+##' @param ...
+##' @return
+##' @author Benno Puetz \email{puetz@@mpipsykl.mpg.de}
+##' @examples
+d2d2 <- function(df.list,
+                 ...){
+    return(do.call(rbind, df.list))
+}