Tics coded using go pro videos and then adjusted time stamps
time stamp info :
timestamps_motor_onset <- timestamps[,c("MOTOR.onset", "MOTOR.eyes_yn", "MOTOR.eyebrows_yn", "MOTOR.nose_yn","MOTOR.mouth_yn", "MOTOR.head.neck_yn", "MOTOR.shoulder_yn", "MOTOR.arm_yn", "MOTOR.hand.fingers_yn", "MOTOR.chest.stomach.torso_yn","MOTOR.legs.feet_y.n", "MOTOR.copropraxia_yn", "MOTOR.complex_yn")]
timestamps_motor_offset <- timestamps[,c("MOTOR.offset", "MOTOR.eyes_yn", "MOTOR.eyebrows_yn", "MOTOR.nose_yn","MOTOR.mouth_yn", "MOTOR.head.neck_yn", "MOTOR.shoulder_yn", "MOTOR.arm_yn", "MOTOR.hand.fingers_yn", "MOTOR.chest.stomach.torso_yn","MOTOR.legs.feet_y.n", "MOTOR.copropraxia_yn", "MOTOR.complex_yn")]
timestamps_vocal_onset <- timestamps[,c("VOCAL.onset", "VOCAL.simple_nonspeech_yn", "VOCAL.simple_speech_yn", "VOCAL.complex_speech_yn", "VOCAL.complex_nonspeech_yn", "VOCAL.coprolalia_yn")]
timestamps_vocal_offset <- timestamps[,c("VOCAL.offset", "VOCAL.simple_nonspeech_yn", "VOCAL.simple_speech_yn", "VOCAL.complex_speech_yn", "VOCAL.complex_nonspeech_yn", "VOCAL.coprolalia_yn")]
colnames(timestamps_motor_onset) <- c("MOTOR.onset", "101", "102", "103", "104", "105", "106", "107", "108", "109", "110", "111", "112") colnames(timestamps_motor_offset) <- c("MOTOR.offset", "201", "202", "203", "204", "205", "206", "207", "208", "209", "210", "211", "113") colnames(timestamps_vocal_onset) <- c("VOCAL.onset", "301", "302", "303", "304", "305") colnames(timestamps_vocal_offset) <- c("VOCAL.offset", "401", "402", "403", "404", "405")
-there is not an option in pop_artmwppth to exclude time period before tic onset