Read Presentation Files

   1 x <- read.table(file = "session1data/pre001.txt",
   2                 sep = "\t",
   3                 header = T,
   4                 skip = 3)
   5 > head(x)
   6 Subject Trial Event.Type     Code   Time  TTime Uncertainty Duration
   7 1            NA                         NA     NA          NA       NA
   8 2  PRE001     1   Response        3 104975 114605           1       NA
   9 3  PRE001     2   Response        3 117581  12411           1       NA
  10 4  PRE001     4    Picture    B1 T1 125765      0           1     5008
  11 5  PRE001     5    Picture RO09.jpg 130773      0         391    38181
  12 6  PRE001     6      Sound RO09.wav 131273      0           2       NA