diff --git a/qa/qa_stimduration.m b/qa/qa_stimduration.m
new file mode 100644
index 0000000000000000000000000000000000000000..faa9a14234adb62cea3a0cfb840b4f89a54172a2
--- /dev/null
+++ b/qa/qa_stimduration.m
@@ -0,0 +1,13 @@
+T = readtable('..\data\_repetitive Match-to-Sample_2022_Apr_08_2317.log','FileType','text');
+T(1:8,:) = [];
+
+indResp = find(strcmp(T.Var3,'Response - STOPPED'));
+indStim = find(strcmp(T.Var2,'DATA'));
+
+stimDuration = cellfun(@(str) str2double(regexp(str,'(?<=Duration: )[0-9\.]*','match')),T.Var3(indStim));
+endStim = T.Var1(indStim) + stimDuration;
+
+indLastResp = arrayfun(@(i) max(indResp(find(indResp>i,9,"first"))), indStim);
+endLastResp = T.Var1(indLastResp);
+
+histogram(endStim - endLastResp,-1:1e-1:1)
\ No newline at end of file