// The following command were use for the first set of outputs.
log using "output1.log", replace
qfactor qsort*, nfa(3) ext(pcf) rot(none)  es(.8) min
qfactor qsort*, nfa(3) ext(pcf) rot(varimax) stl(50) es(.8) min
qfactor qsort*, nfa(3) ext(pcf) rot(equamax) stl(50) es(.8) min
qfactor qsort*, nfa(3) ext(pcf) rot(quartimax) stl(50) es(.8) min

qfactor qsort*, nfa(3) ext(ipf) rot(none) stl(50) es(.8) min
qfactor qsort*, nfa(3) ext(ipf) rot(varimax) stl(50) es(.8) min
qfactor qsort*, nfa(3) ext(ipf) rot(equamax) stl(50) es(.8) min
qfactor qsort*, nfa(3) ext(ipf) rot(quartimax) stl(50) es(.8) min

log close


log using "output2.log", replace

qui {
	qfactor qsort*, nfa(3) ext(pcf) rot(none) stl(50) sco(r) es(.8) 
qui mat fscore=r(fctrscrs)
preserve
drop StatNo //to be able to read StatNo from the matrix in svmat command next
svmat fscore, names(col)
keep StatNo zscor*
ren zscore* z_none*
save zscores, replace
restore

qfactor qsort*, nfa(3) ext(pcf) rot(varimax) stl(30) sco(r) es(.8)
mat fscore=r(fctrscrs)
preserve
drop StatNo //to be able to read StatNo from the matrix in svmat command next
svmat fscore, names(col)
keep StatNo zscor*
ren zscore* z_varimax*
merge 1:1 StatNo using zscores 
order z_varimax*, last
drop _merge
save zscores, replace
restore

qfactor qsort*, nfa(3) ext(pcf) rot(equamax) stl(30) sco(r) es(.8)
mat fscore=r(fctrscrs)
preserve
drop StatNo //to be able to read StatNo from the matrix in svmat command next
svmat fscore, names(col)
keep StatNo zscor*
ren zscore* z_equamax*
merge 1:1 StatNo using zscores 
order z_equamax*, last
drop _merge
save zscores, replace
restore

qfactor qsort*, nfa(3) ext(pcf) rot(quartimax) stl(30) sco(r) es(.8) 
mat fscore=r(fctrscrs)
preserve
drop StatNo //to be able to read StatNo from the matrix in svmat command next
svmat fscore, names(col)
keep StatNo zscor*
ren zscore* z_quartimax*
merge 1:1 StatNo using zscores 
order z_quartimax*, last
drop _merge
save zscores, replace
}
pwcorr z_*, star(.05)

restore

log close