Final Functions

Funtion: Reading File

   1 read.file <- function(file,skip=3,verbose=T){
   2     if(verbose) print(paste("read", file))
   3     tmp <- read.table(file,skip = skip,sep = "\t",header=T,na.strings = c(" +",""))
   4     tmp <- tmp[-1,]
   5     tmp <- lapply(tmp,function(x) {
   6         if( class(x) %in% c("character","factor") ){
   7             x <- factor(gsub(" ","",as.character(x)))
   8             return(x)}else{ return(x) }})
   9     tmp <- as.data.frame(tmp)
  10     tmp <- tmp[!(tmp$Event.Type %in% c("Pause","Resume")), ]
  11 
  12     first3 <- min(which(tmp$Code==3 & !is.na(tmp$Code)))
  13     equalsnot3 <- which(!(tmp$Code==3 & !is.na(tmp$Code)))
  14     first <- min(equalsnot3[equalsnot3 > first3])
  15     tmp <- tmp[-c(1:first),]
  16     
  17 
  18     letzte <- max(which(tmp$Code==3 & !is.na(tmp$Code)))
  19     tmp <- tmp[-c(letzte:nrow(tmp)),]
  20 
  21     zeilen <- which(tmp$Event.Type %in% c("Response"))
  22     zeilen <- sort(unique(c(zeilen,zeilen-1)))
  23     zeilen <- zeilen[zeilen>0]
  24     tmp <- tmp[zeilen,]
  25     
  26     responses <- which(tmp$Code %in% c(1,2))
  27     events <- responses-1
  28     tmp$Type <- NA
  29     tmp$Type[responses] <- as.character(tmp$Event.Type[events])
  30 
  31     if(length(tmp$Type[responses])!=length(tmp$Event.Type[events])) { print(file)}
  32     tmp$Event.Code <- NA
  33     tmp$Event.Code[responses] <- as.character(tmp$Code[events])
  34     tmp$Stim.Type[responses] <- as.character(tmp$Stim.Type[events])
  35     tmp$Duration[responses] <- as.character(tmp$Duration[events])
  36     tmp$Uncertainty.1[responses] <- as.character(tmp$Uncertainty.1[events])
  37     tmp$ReqTime[responses] <- as.character(tmp$ReqTime[events])
  38     tmp$ReqDur[responses] <- as.character(tmp$ReqDur[events])
  39     tmp$Pair.Index[responses] <- as.character(tmp$Pair.Index[events])
  40 
  41     tmp$Stim.Type[responses] <- as.character(tmp$Stim.Type[events])
  42     tmp <- tmp[tmp$Event.Type=="Response" & !is.na(tmp$Type),]
  43     tmp <- tmp[tmp$Type=="Picture" & !is.na(tmp$Type),]
  44     return(tmp)
  45 }

Line 18:

Line 22:

Funtion: Reading All Files from a DIRECTORY

   1 read.files <- function(filesdir,skip=3,...){
   2     files <- paste(filedir,dir(filedir),sep="/")
   3     Reduce(rbind,lapply(files,read.file,skip=skip))}