feat(matlab): add Satterthwaite DF + honest random-slope test to LME reports
Every fitlme-based report (lme_*, paper_*, phase_*, and the variations' analyze.m) now shows, per effect: residual-DF p, Satterthwaite-DF p, and -- for the interaction -- an HONEST test from a per-animal random-SLOPE model (day|rat), whose Satterthwaite DF collapses toward the animal count. New: tdcs_random_slope_interaction.m (shared helper). Wired into tdcs_lme, tdcs_paper_lme, tdcs_phase_lme, variation_analyze; SUMMARY.csv gains interaction_p_satt / interaction_p_rs. Regenerated all results/, variations/, matched-effort outputs. Key point this surfaces: Satterthwaite ~= residual on the random-INTERCEPT model (the slope's error is at session level), so it does NOT fix pseudoreplication; the random-slope model does. Effect: full-range mergeA2 interaction 0.009 -> 0.75 (collapses); unmerge_d0_5 0.015 -> 0.13 (n.s.); the pooled-control early windows survive honestly (naive_a2_d0_5 0.001 -> 0.028; naive_boxa_d0_5 0.003 -> 0.036). Suite 42/42. Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
This commit is contained in:
@@ -123,6 +123,27 @@ classdef tLme < matlab.unittest.TestCase
|
||||
testCase.verifyFalse(any(sg.group == 'Naive'));
|
||||
end
|
||||
|
||||
function testLmeReportsHaveSatterthwaiteAndHonest(testCase)
|
||||
% Every fitlme report adds Satterthwaite DF and the honest
|
||||
% random-slope interaction test.
|
||||
cfg = tdcs_config();
|
||||
L = tdcs_lme(tdcs_scenario_data('mergeA2_full'), cfg);
|
||||
testCase.verifyTrue(isfield(L.interaction, 'pSatt'));
|
||||
testCase.verifyTrue(isfield(L.interaction, 'dfSatt'));
|
||||
testCase.verifyTrue(isfield(L, 'interRS') && islogical(L.interRS.ok));
|
||||
% The full-range mergeA2 interaction is significant under obs-level
|
||||
% DF but NOT under the honest per-animal random slope (it collapses).
|
||||
testCase.verifyLessThan(L.interaction.p, 0.05);
|
||||
testCase.verifyTrue(L.interRS.ok);
|
||||
testCase.verifyGreaterThan(L.interRS.p, 0.05);
|
||||
% Report text carries the Satterthwaite column and honest block.
|
||||
here = fileparts(fileparts(mfilename('fullpath')));
|
||||
evalc("tdcs_glm('lme_mergeA2_full')");
|
||||
txt = fileread(fullfile(here, 'results', 'lme_mergeA2_full.txt'));
|
||||
testCase.verifyTrue(contains(txt, 'Satterthwaite'));
|
||||
testCase.verifyTrue(contains(txt, 'HONEST LME'));
|
||||
end
|
||||
|
||||
function testPaperFormulaReplicatesInteraction(testCase)
|
||||
% The paper's exact formula (behavior ~ stim + day + stim:day +
|
||||
% (1|rat)) on mergeA2 reproduces the paper's interaction
|
||||
|
||||
Reference in New Issue
Block a user