# Exclude very brief and very long fixations. ```r organise.exclusions.fix_durations(fixreport_df, min = 60, max = 1200) ``` ## Arguments - `fixreport_df`: Fixation report. - `min`: Minimum duration of fixations. - `max`: Maximum duration of fixations. ## Returns A data.table detailing how many trials were removed from each session, plus a data.table with the cleaned fixation report. ## Examples ```r data(fixationreport) data(messagereport) # REPLACE SPACES IN MESSAGES messagereport <- organise.message.replace_spaces(messagereport) # TAKE A LOOK print(organise.message.descriptives(messagereport)) # MARKUP fixationreport <- organise.message.markup(message_df=messagereport, fixreport_df = fixationreport, message="DISPLAY_START") fixationreport <- organise.message.markup(message_df=messagereport, fixreport_df = fixationreport, message="DISPLAY_CHANGE") # NOW DO ACCURACY AND RT MARKUP fixationreport <- organise.responses.markup(fixationreport, "CORRECT_RESPONSE") # NOW MARK UP FIXATION CONTINGENCIES fixationreport<-organise.message.fix_contingencies(fixationreport, list("DISPLAY_START", "DISPLAY_CHANGE", "RESPONSE_TIME")) # SET UP TRUE RT fixationreport[,TRUE_RT:=RESPONSE_TIME-DISPLAY_START,] behaviouralData <- analyse.behavioural.data(fixationreport, aggregation_column_list = list('TRIALTYPE_TEXT')) # RANDOM TRIAL TO CHECK THINGS OUT print(organise.checks.random_trial(fixationreport)) # FIX CONTINGENCIES print(organise.contingencies.descriptives(fixationreport)) # REMOVE MISSING EVENTS - HERE, TRIALS WHICH LACKED A RESPONSE messageRemovals <- organise.message.removals(fixreport_df=fixationreport, required_message_list=list("DISPLAY_CHANGE", "RESPONSE_TIME")) # LOOK AT MESSAGE REMOVALS print(messageRemovals[[1]]) # GRAB THE FIXATION REPORT WITH TRIALS REMOVED fixMessagesRemoved <- messageRemovals[[2]] # THIS SHOWS WE HAVE NO UNCLASSIFIED FIXATIONS, GOOD! print(organise.contingencies.descriptives(fixMessagesRemoved)) # GET A BEHAVIOURAL DATASET FOR ANALYSES AND SAVING ETC. behavDT<- organise.behavioural.base(fixreport_df = fixMessagesRemoved, list( 'TRIALTYPE_TEXT'), response_period_start="DISPLAY_START") # REMOVALS BASED ON FIXATION DURATIONS durationRemovals <- organise.exclusions.fix_durations(fixreport_df=fixMessagesRemoved) durationsRemoved <- durationRemovals[[1]] # FINAL DATASET WHICH CAN BE ANALYSED finalDT <- durationRemovals [[2]] ```

organise.exclusions.fix_durations function