Originally posted by Lucy Hiscox
View Post
. . . you mentioned before how "The likelihood-ratio test is of the Treatment × Time interaction. It is statistical evidence (confirmation) that the temporal profile of the outcome variables differs between treatment groups (exercise treatment versus control treatment)." Which is what we get from AIMS 1 and 2. Is that correct?
The first graph you provided - it is completely random how participants recruited later are slightly older.
Also, the second graph you provided (participant accession number vs Flanker RT). I can't see how that would be a learning effect given how each participant is independent.
Originally posted by Lucy Hiscox
View Post
3) LR test - I think that is essentially the same as the mixed command?
4) . . . is there also a way to say "changes in MRI correspond with changes in Cognition" overall in both groups - as an overall summary.
Code:
version 17.0 clear * quietly input byte(pid trt sex) double age byte tim double(bmu sr) /// int(flanker_c_rt flanker_inc_rt stroop_c_rt stroop_inc_rt) [elided for brevity] end label define Treatments 0 "Control" 1 "Experimental" label values trt Treatments label define Sexes 0 F 1 M label values sex Sexes label variable bmu "MRI Mu Score" rename sr sim label variable sim "Simon Task Score" rename flanker_c_rt fcr label variable fcr "Flanker Congruent RT" rename flanker_inc_rt fir label variable fir "Flanker Incongurent RT" rename stroop_c_rt scr label variable scr "Stroop Congruent RT" rename stroop_inc_rt sir label variable sir "Stroop Incongruent RT" foreach var of varlist bmu-sir { quietly regress `var' i.trt##i.tim i.sex c.age quietly margins trt#tim if "`var'" == "bmu" local format %4.2f else if "`var'" == "sim" local format %03.1f else local format %3.0f local ytitle : variable label `var' if inlist("`var'", "bmu", "sim", "fcr") local xtitle else local xtitle Session quietly marginsplot , xdimension(tim) noci /// title("") legend(off) /// ytitle(`ytitle') ylabel( , format(`format') angle(horizontal) nogrid) /// xtitle("`xtitle'") /// plot1opts(lcolor(black) msymbol(none)) /// plot2opts(lcolor(black) lpattern(dash) msymbol(none)) /// name(`var') local graph_list `graph_list' `var' } graph combine `graph_list' quietly graph export Summary.png, replace exit
Comment