視線追従データを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()
今日はここまで。