Description Usage Arguments Value Examples
View source: R/ORGANISE__functions.R
Exclude very brief and very long fixations.
1 | organise.exclusions.fix_durations(fixreport_df, min = 60, max = 1200)
|
fixreport_df |
Fixation report. |
min |
Minimum duration of fixations. |
max |
Maximum duration of fixations. |
A data.table detailing how many trials were removed from each session, plus a data.table with the cleaned fixation report.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 | 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]]
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.