conductances.m

% first load a 'results' .mat file

% There are 15 total datsets:
%   12 small
%   3 large: ljournal, twitter, friendster
%

% for each graph, get a column vector, X, of conds.
%
%   For SMALL DATA
% we'll use the experiment randseed:
%   set experimenttype = 1;
%   use datax = conds(id, trialnum, experimenttype)';

output_directory = '../results/';
data_directory = '../results/';

filename = 'newsmalldata';
load([data_directory filename]);

numdata = 3+numel(filename);
percdata = zeros(numdata,3,2);
inputsize = zeros(numdata,1);
experimenttype = 1;
numgraphs = numel(filename);
inputsize(1:numgraphs) = gsize(1:numel(filename),1)+gsize(1:numel(filename),2);


functionid = 1; % for hk, 2 is for ppr
for id=1:numgraphs
datax = conds(id,:,experimenttype)';
percdata(id,:,functionid) = prctile(datax,[25 50 75],1);
end


load newsmallppr;
filename = '';
load([data_directory filename]);
functionid = 2; % for hk, 2 is for ppr
for id=1:numgraphs
datax = conds(id,:,experimenttype)';
percdata(id,:,functionid) = prctile(datax,[25 50 75],1);
end

% now get LARGE DATA
% We have to do this one at a time, since each has
% its own .mat file

% friendstertrials
% twitterptrials
% ljournaltrials

% do HK first
functionid = 1;

filename = 'friendstertrials';
load([data_directory filename]);
id = numgraphs+1;
inputsize(id) = gsize(:,1)+gsize(:,2);
datax = conds(:,experimenttype);
percdata(id,:,functionid) = prctile(datax,[25 50 75],1);


filename = 'twitterptrials';
load([data_directory filename]);
id = numgraphs+2;
inputsize(id) = gsize(:,1)+gsize(:,2);
datax = conds(:,experimenttype);
percdata(id,:,functionid) = prctile(datax,[25 50 75],1);


filename = 'ljournaltrials';
load([data_directory filename]);
id = numgraphs+3;
inputsize(id) = gsize(:,1)+gsize(:,2);
datax = conds(:,experimenttype);
percdata(id,:,functionid) = prctile(datax,[25 50 75],1);


% now do PPR
functionid = 2;

filename = 'pprfriendstertrials';
load([data_directory filename]);
id = numgraphs+1;
% inputsize(id) = gsize(:,1)+gsize(:,2);
datax = conds(:,experimenttype);
percdata(id,:,functionid) = prctile(datax,[25 50 75],1);


filename = 'pprtwitterptrials';
load([data_directory filename]);
id = numgraphs+2;
% inputsize(id) = gsize(:,1)+gsize(:,2);
datax = conds(:,experimenttype);
percdata(id,:,functionid) = prctile(datax,[25 50 75],1);


filename = 'pprljournaltrials';
load([data_directory filename]);
id = numgraphs+3;
% inputsize(id) = gsize(:,1)+gsize(:,2);
datax = conds(:,experimenttype);
percdata(id,:,functionid) = prctile(datax,[25 50 75],1);



% HAVE ALL DATA

save([output_directory 'conductances' '.mat'], 'newindexing','percdata', 'inputsize','-v7.3');