addpath('../src/');
addpath('../src/mwwTest/')
%PRNI 2017
%Hands on session - site effect estimation and visualization
%===========================================================
%1) Load ABIDA data by typing
load('../data/ABIDE_controlData_7Sites.mat');
load('../data/cc200Map2Communities.mat');
%2) visualize community structure of two selected subject i from dataset d
[~,parcelOrderByCommunity]=sort(mapToCommunities);
i=5;%can be modified
d=1;%can be modified
data_i=squeeze(data{d}.signals(i,:,:))';
data_i_byCommunity=data_i(:,parcelOrderByCommunity);
figure;
imagesc(corr(data_i_byCommunity));
colorbar;
%For the same data, estimate the level of agreemnet with the known community structure:
[ hom_com sep_com mw_com wbRat] = compareWithinAndBetweenGroupsSim( corr(data_i), mapToCommunities )
communityAgrmntScore=mw_com.stats.zval;
%Extract a map of sites for each subject
numParcels=length(mapToCommunities);
subSiteMap=[];
for d=1:length(data)
numSubs_d=size(data{d}.signals,1);
subSiteMap=[subSiteMap;ones(numSubs_d,1)*d];
end
numSubs=length(subSiteMap);
%Extract a pairwise correlations for each subject:
pos=1;
corrPos=find(triu(ones(numParcels),1));
corrData=zeros(numSubs,length(corrPos));
for d=1:length(data)
signals_d=data{d}.signals;
for sub=1:size(signals_d,1)
data_d_s=squeeze(signals_d(sub,:,:));
corr_d_s=corr(data_d_s');
corrData(pos,:)=corr_d_s(corrPos);
pos=pos+1;
end
end
%Extract pairwise sim matrix between subjects based on all correlation values:
subSimMat=corr(corrData');
figure;
imagesc(subSimMat);
colorbar;
hist(subSimMat(:),100);
% Estimate site effect across all sites:
[ baselineSE.hom baselineSE.sep baselineSE.mw baselineSE.wbRat] = compareWithinAndBetweenGroupsSim( subSimMat, subSiteMap);
baselineSE.hom
baselineSE.sep
baselineSE.mw
baselineSE.wbRat