視線追従データをRで解析する準備とかいろいろ

大学の課題。たぶんゼミの人しか何をいってるかわからない。
四択問題を解いている最中の視点移動データを与えられた。

emr1.csv

;No.     ,Time,Timecode,X,Y,P,Error,Cue,Status
;00000000,00:00:00.000,00:13:10:07,312,556,4.16,,,0x00000000
;00000001,00:00:00.017,00:13:10:08,311,559,4.16,,,0x00000000
;00000002,00:00:00.033,00:13:10:07,312,556,4.16,,,0x00000000
;00000003,00:00:00.050,00:13:10:08,311,559,4.16,,,0x00000000
;...

解析したい範囲のcsvを作っておく from to の単位は秒
target.csv

;No.,from,to
;01,97,105
;02,131,134
;03,159,162
;04,187,190
...

library("ReadImages")

filterDf = function(df,from,to){
  fps = 60
  df = df[(fps*from):(fps*to),]
  df = df[df$X < 1000,]
  df[df$Y > - 1000,]
}

setBackGround = function(){
  # 画像サイズがあわない
  img = read.jpeg("/Users/mizchi/Documents/mtlab/EMR課題/10-13.jpg")
  plot(img)
  par(new=T)
}

plotData = function(mod,col=1){
  plot(
       mod$X,
       mod$Y * -1 ,
       type="l",
       col= col
     )
  par(new=T)
}

main = function(){
  raw_data = read.csv("~/Documents/mtlab/EMR課題/emr1.csv")
  time_table1 = read.csv("~/Documents/mtlab/EMR課題/target.csv")

  for(i in 1:length(time_table1$from)){
    mod = filterDf(
             raw_data ,
             from = time_table1$from[i],
             to = time_table1$to[i]
      )
    plotData(mod ,col= i %% 8 )
  }
  
}
main()

今日はここまで。