<?xml version="1.0" encoding="utf-8"?><!DOCTYPE article  PUBLIC '-//OASIS//DTD DocBook XML V4.4//EN'  'http://www.docbook.org/xml/4.4/docbookx.dtd'><article><articleinfo><title>RstatisTik/RstatisTikPortal/RcourSe/DataWrangling</title><revhistory><revision><revnumber>3</revnumber><date>2015-03-05 07:54:42</date><authorinitials>hayd@cbs.mpg.de</authorinitials></revision><revision><revnumber>2</revnumber><date>2015-03-04 17:27:53</date><authorinitials>mandy.vogel@googlemail.com</authorinitials></revision><revision><revnumber>1</revnumber><date>2015-03-04 16:34:22</date><authorinitials>mandy.vogel@googlemail.com</authorinitials></revision></revhistory></articleinfo><section><title>Final Functions</title><section><title>Funtion: Reading File</title><programlisting format="linespecific" language="highlight" linenumbering="numbered" startinglinenumber="1"><methodname><![CDATA[read.file]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[function]]></methodname><![CDATA[(]]><methodname><![CDATA[file]]></methodname><![CDATA[,]]><methodname><![CDATA[skip]]></methodname><![CDATA[=3,]]><methodname><![CDATA[verbose]]></methodname><![CDATA[=]]><token><![CDATA[T]]></token><![CDATA[){]]>
<![CDATA[    ]]><methodname><![CDATA[if]]></methodname><![CDATA[(]]><methodname><![CDATA[verbose]]></methodname><![CDATA[) ]]><methodname><![CDATA[print]]></methodname><![CDATA[(]]><methodname><![CDATA[paste]]></methodname><![CDATA[(]]><phrase><![CDATA["]]></phrase><phrase><![CDATA[read"]]></phrase><![CDATA[, ]]><methodname><![CDATA[file]]></methodname><![CDATA[))]]>
<![CDATA[    ]]><methodname><![CDATA[tmp]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[read.table]]></methodname><![CDATA[(]]><methodname><![CDATA[file]]></methodname><![CDATA[,]]><methodname><![CDATA[skip]]></methodname><![CDATA[ = ]]><methodname><![CDATA[skip]]></methodname><![CDATA[,]]><methodname><![CDATA[sep]]></methodname><![CDATA[ = ]]><phrase><![CDATA["]]></phrase><phrase><![CDATA[\t"]]></phrase><![CDATA[,]]><methodname><![CDATA[header]]></methodname><![CDATA[=]]><token><![CDATA[T]]></token><![CDATA[,]]><methodname><![CDATA[na.strings]]></methodname><![CDATA[ = ]]><methodname><![CDATA[c]]></methodname><![CDATA[(]]><phrase><![CDATA["]]></phrase><phrase><![CDATA[ +"]]></phrase><![CDATA[,]]><phrase><![CDATA["]]></phrase><phrase><![CDATA["]]></phrase><![CDATA[))]]>
<![CDATA[    ]]><methodname><![CDATA[tmp]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[tmp]]></methodname><methodname><![CDATA[[]]></methodname><![CDATA[-1,]]><methodname><![CDATA[]]]></methodname>
<![CDATA[    ]]><methodname><![CDATA[tmp]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[lapply]]></methodname><![CDATA[(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[,]]><methodname><![CDATA[function]]></methodname><![CDATA[(]]><methodname><![CDATA[x]]></methodname><![CDATA[) {]]>
<![CDATA[        ]]><methodname><![CDATA[if]]></methodname><![CDATA[( ]]><methodname><![CDATA[class]]></methodname><![CDATA[(]]><methodname><![CDATA[x]]></methodname><![CDATA[) %in% ]]><methodname><![CDATA[c]]></methodname><![CDATA[(]]><phrase><![CDATA["]]></phrase><phrase><![CDATA[character"]]></phrase><![CDATA[,]]><phrase><![CDATA["]]></phrase><phrase><![CDATA[factor"]]></phrase><![CDATA[) ){]]>
<![CDATA[            ]]><methodname><![CDATA[x]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[factor]]></methodname><![CDATA[(]]><methodname><![CDATA[gsub]]></methodname><![CDATA[(]]><phrase><![CDATA["]]></phrase><phrase><![CDATA[ "]]></phrase><![CDATA[,]]><phrase><![CDATA["]]></phrase><phrase><![CDATA["]]></phrase><![CDATA[,]]><methodname><![CDATA[as.character]]></methodname><![CDATA[(]]><methodname><![CDATA[x]]></methodname><![CDATA[)))]]>
<![CDATA[            ]]><methodname><![CDATA[return]]></methodname><![CDATA[(]]><methodname><![CDATA[x]]></methodname><![CDATA[)}]]><methodname><![CDATA[else]]></methodname><![CDATA[{ ]]><methodname><![CDATA[return]]></methodname><![CDATA[(]]><methodname><![CDATA[x]]></methodname><![CDATA[) }})]]>
<![CDATA[    ]]><methodname><![CDATA[tmp]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[as.data.frame]]></methodname><![CDATA[(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[)]]>
<![CDATA[    ]]><methodname><![CDATA[tmp]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[tmp]]></methodname><methodname><![CDATA[[]]></methodname><![CDATA[!(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Event.Type]]></methodname><![CDATA[ %in% ]]><methodname><![CDATA[c]]></methodname><![CDATA[(]]><phrase><![CDATA["]]></phrase><phrase><![CDATA[Pause"]]></phrase><![CDATA[,]]><phrase><![CDATA["]]></phrase><phrase><![CDATA[Resume"]]></phrase><![CDATA[)), ]]><methodname><![CDATA[]]]></methodname>

<![CDATA[    ]]><methodname><![CDATA[first3]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[min]]></methodname><![CDATA[(]]><methodname><![CDATA[which]]></methodname><![CDATA[(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Code]]></methodname><![CDATA[==3 & !]]><methodname><![CDATA[is.na]]></methodname><![CDATA[(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Code]]></methodname><![CDATA[)))]]>
<![CDATA[    ]]><methodname><![CDATA[equalsnot3]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[which]]></methodname><![CDATA[(!(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Code]]></methodname><![CDATA[==3 & !]]><methodname><![CDATA[is.na]]></methodname><![CDATA[(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Code]]></methodname><![CDATA[)))]]>
<![CDATA[    ]]><methodname><![CDATA[first]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[min]]></methodname><![CDATA[(]]><methodname><![CDATA[equalsnot3]]></methodname><methodname><![CDATA[[equalsnot3]]></methodname><![CDATA[ > ]]><methodname><![CDATA[first3]]></methodname><methodname><![CDATA[]]]></methodname><![CDATA[)]]>
<![CDATA[    ]]><methodname><![CDATA[tmp]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[tmp]]></methodname><methodname><![CDATA[[]]></methodname><![CDATA[-]]><methodname><![CDATA[c]]></methodname><![CDATA[(1:]]><methodname><![CDATA[first]]></methodname><![CDATA[),]]><methodname><![CDATA[]]]></methodname>
<![CDATA[    ]]>

<![CDATA[    ]]><methodname><![CDATA[letzte]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[max]]></methodname><![CDATA[(]]><methodname><![CDATA[which]]></methodname><![CDATA[(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Code]]></methodname><![CDATA[==3 & !]]><methodname><![CDATA[is.na]]></methodname><![CDATA[(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Code]]></methodname><![CDATA[)))]]>
<![CDATA[    ]]><methodname><![CDATA[tmp]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[tmp]]></methodname><methodname><![CDATA[[]]></methodname><![CDATA[-]]><methodname><![CDATA[c]]></methodname><![CDATA[(]]><methodname><![CDATA[letzte]]></methodname><![CDATA[:]]><methodname><![CDATA[nrow]]></methodname><![CDATA[(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[)),]]><methodname><![CDATA[]]]></methodname>

<![CDATA[    ]]><methodname><![CDATA[zeilen]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[which]]></methodname><![CDATA[(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Event.Type]]></methodname><![CDATA[ %in% ]]><methodname><![CDATA[c]]></methodname><![CDATA[(]]><phrase><![CDATA["]]></phrase><phrase><![CDATA[Response"]]></phrase><![CDATA[))]]>
<![CDATA[    ]]><methodname><![CDATA[zeilen]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[sort]]></methodname><![CDATA[(]]><methodname><![CDATA[unique]]></methodname><![CDATA[(]]><methodname><![CDATA[c]]></methodname><![CDATA[(]]><methodname><![CDATA[zeilen]]></methodname><![CDATA[,]]><methodname><![CDATA[zeilen]]></methodname><![CDATA[-1)))]]>
<![CDATA[    ]]><methodname><![CDATA[zeilen]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[zeilen]]></methodname><methodname><![CDATA[[zeilen]]></methodname><![CDATA[>0]]><methodname><![CDATA[]]]></methodname>
<![CDATA[    ]]><methodname><![CDATA[tmp]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[tmp]]></methodname><methodname><![CDATA[[zeilen]]></methodname><![CDATA[,]]><methodname><![CDATA[]]]></methodname>
<![CDATA[    ]]>
<![CDATA[    ]]><methodname><![CDATA[responses]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[which]]></methodname><![CDATA[(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Code]]></methodname><![CDATA[ %in% ]]><methodname><![CDATA[c]]></methodname><![CDATA[(1,2))]]>
<![CDATA[    ]]><methodname><![CDATA[events]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[responses]]></methodname><![CDATA[-1]]>
<![CDATA[    ]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Type]]></methodname><![CDATA[ <- ]]><symbol><![CDATA[NA]]></symbol>
<![CDATA[    ]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Type]]></methodname><methodname><![CDATA[[responses]]></methodname><methodname><![CDATA[]]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[as.character]]></methodname><![CDATA[(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Event.Type]]></methodname><methodname><![CDATA[[events]]></methodname><methodname><![CDATA[]]]></methodname><![CDATA[)]]>

<![CDATA[    ]]><methodname><![CDATA[if]]></methodname><![CDATA[(]]><methodname><![CDATA[length]]></methodname><![CDATA[(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Type]]></methodname><methodname><![CDATA[[responses]]></methodname><methodname><![CDATA[]]]></methodname><![CDATA[)!=]]><methodname><![CDATA[length]]></methodname><![CDATA[(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Event.Type]]></methodname><methodname><![CDATA[[events]]></methodname><methodname><![CDATA[]]]></methodname><![CDATA[)) { ]]><methodname><![CDATA[print]]></methodname><![CDATA[(]]><methodname><![CDATA[file]]></methodname><![CDATA[)}]]>
<![CDATA[    ]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Event.Code]]></methodname><![CDATA[ <- ]]><symbol><![CDATA[NA]]></symbol>
<![CDATA[    ]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Event.Code]]></methodname><methodname><![CDATA[[responses]]></methodname><methodname><![CDATA[]]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[as.character]]></methodname><![CDATA[(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Code]]></methodname><methodname><![CDATA[[events]]></methodname><methodname><![CDATA[]]]></methodname><![CDATA[)]]>
<![CDATA[    ]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Stim.Type]]></methodname><methodname><![CDATA[[responses]]></methodname><methodname><![CDATA[]]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[as.character]]></methodname><![CDATA[(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Stim.Type]]></methodname><methodname><![CDATA[[events]]></methodname><methodname><![CDATA[]]]></methodname><![CDATA[)]]>
<![CDATA[    ]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Duration]]></methodname><methodname><![CDATA[[responses]]></methodname><methodname><![CDATA[]]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[as.character]]></methodname><![CDATA[(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Duration]]></methodname><methodname><![CDATA[[events]]></methodname><methodname><![CDATA[]]]></methodname><![CDATA[)]]>
<![CDATA[    ]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Uncertainty.1]]></methodname><methodname><![CDATA[[responses]]></methodname><methodname><![CDATA[]]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[as.character]]></methodname><![CDATA[(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Uncertainty.1]]></methodname><methodname><![CDATA[[events]]></methodname><methodname><![CDATA[]]]></methodname><![CDATA[)]]>
<![CDATA[    ]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[ReqTime]]></methodname><methodname><![CDATA[[responses]]></methodname><methodname><![CDATA[]]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[as.character]]></methodname><![CDATA[(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[ReqTime]]></methodname><methodname><![CDATA[[events]]></methodname><methodname><![CDATA[]]]></methodname><![CDATA[)]]>
<![CDATA[    ]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[ReqDur]]></methodname><methodname><![CDATA[[responses]]></methodname><methodname><![CDATA[]]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[as.character]]></methodname><![CDATA[(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[ReqDur]]></methodname><methodname><![CDATA[[events]]></methodname><methodname><![CDATA[]]]></methodname><![CDATA[)]]>
<![CDATA[    ]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Pair.Index]]></methodname><methodname><![CDATA[[responses]]></methodname><methodname><![CDATA[]]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[as.character]]></methodname><![CDATA[(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Pair.Index]]></methodname><methodname><![CDATA[[events]]></methodname><methodname><![CDATA[]]]></methodname><![CDATA[)]]>

<![CDATA[    ]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Stim.Type]]></methodname><methodname><![CDATA[[responses]]></methodname><methodname><![CDATA[]]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[as.character]]></methodname><![CDATA[(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Stim.Type]]></methodname><methodname><![CDATA[[events]]></methodname><methodname><![CDATA[]]]></methodname><![CDATA[)]]>
<![CDATA[    ]]><methodname><![CDATA[tmp]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[tmp]]></methodname><methodname><![CDATA[[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Event.Type]]></methodname><![CDATA[==]]><phrase><![CDATA["]]></phrase><phrase><![CDATA[Response"]]></phrase><![CDATA[ & !]]><methodname><![CDATA[is.na]]></methodname><![CDATA[(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Type]]></methodname><![CDATA[),]]><methodname><![CDATA[]]]></methodname>
<![CDATA[    ]]><methodname><![CDATA[tmp]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[tmp]]></methodname><methodname><![CDATA[[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Type]]></methodname><![CDATA[==]]><phrase><![CDATA["]]></phrase><phrase><![CDATA[Picture"]]></phrase><![CDATA[ & !]]><methodname><![CDATA[is.na]]></methodname><![CDATA[(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[$]]><methodname><![CDATA[Type]]></methodname><![CDATA[),]]><methodname><![CDATA[]]]></methodname>
<![CDATA[    ]]><methodname><![CDATA[return]]></methodname><![CDATA[(]]><methodname><![CDATA[tmp]]></methodname><![CDATA[)]]>
<![CDATA[}]]>
</programlisting><para><link linkend="CA-efbf8a93fbd22f17bfbdcb535a155bbb9c389093_18">Line 18</link>:  </para><para><link linkend="CA-efbf8a93fbd22f17bfbdcb535a155bbb9c389093_22">Line 22</link>:  </para></section><section><title>Funtion: Reading All Files from a DIRECTORY</title><programlisting format="linespecific" language="highlight" linenumbering="numbered" startinglinenumber="1"><methodname><![CDATA[read.files]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[function]]></methodname><![CDATA[(]]><methodname><![CDATA[filesdir]]></methodname><![CDATA[,]]><methodname><![CDATA[skip]]></methodname><![CDATA[=3,]]><symbol><![CDATA[...]]></symbol><![CDATA[){]]>
<![CDATA[    ]]><methodname><![CDATA[files]]></methodname><![CDATA[ <- ]]><methodname><![CDATA[paste]]></methodname><![CDATA[(]]><methodname><![CDATA[filedir]]></methodname><![CDATA[,]]><methodname><![CDATA[dir]]></methodname><![CDATA[(]]><methodname><![CDATA[filedir]]></methodname><![CDATA[),]]><methodname><![CDATA[sep]]></methodname><![CDATA[=]]><phrase><![CDATA["]]></phrase><phrase><![CDATA[/"]]></phrase><![CDATA[)]]>
<![CDATA[    ]]><methodname><![CDATA[Reduce]]></methodname><![CDATA[(]]><methodname><![CDATA[rbind]]></methodname><![CDATA[,]]><methodname><![CDATA[lapply]]></methodname><![CDATA[(]]><methodname><![CDATA[files]]></methodname><![CDATA[,]]><methodname><![CDATA[read.file]]></methodname><![CDATA[,]]><methodname><![CDATA[skip]]></methodname><![CDATA[=]]><methodname><![CDATA[skip]]></methodname><![CDATA[))}]]>
</programlisting></section></section></article>