CellSortShiftCorrection.m

function [data_g, data_r] = CellSortShiftCorrection(data_g, data_r, firstRedFrame)
%% shiftcorrection
%import green channel
disp('Performing Shift Correction..');
%shift correction
% wb = waitbar(0, 'Performing Shift Correction..');
parfor r = 1:size(data_g, 3)
%     waitbar(r/size(data_g, 3), wb,[num2str(r) ' of ' num2str(size(data_g, 3))]);
    shiftVector = findshift(firstRedFrame, data_r(:,:,r), 'iter');
    data_r(:,:,r)  = shift(data_r(:,:,r),shiftVector);
    data_g(:,:,r)  = shift(data_g(:,:,r),shiftVector);

end
disp('finished');
% close(wb);
end