Daniel@0: function x = exportation(s)
Daniel@0: 
Daniel@0: % EXPORTATION exports the peaks of a vectorial dimension
Daniel@0: 
Daniel@0: v = get(s,'Data');
Daniel@0: n = get(s,'Name');
Daniel@0: pt = get(s,'PeakPosUnit');
Daniel@0: pp = get(s,'PeakPos');
Daniel@0: t = get(s,'Title');
Daniel@0: frames = 0;
Daniel@0: for i = 1:length(v)
Daniel@0:     if iscell(v{i})
Daniel@0:         v{i} = v{i}{1}; %% Segmented audio cannot be exported properly now.
Daniel@0:     end
Daniel@0:     if size(v{i},2) > 1
Daniel@0:         frames = 1;
Daniel@0:     end
Daniel@0: end
Daniel@0: for i = 1:length(v)
Daniel@0:     if size(v{i},4) == 1
Daniel@0:         vi = v{i};
Daniel@0:     else
Daniel@0:         lvi = size(v{i},1);
Daniel@0:         vi = [];
Daniel@0:         for j = 1:size(v{i},4)
Daniel@0:             vi(lvi*(j-1)+1:lvi*j,:,:) = v{i}(:,:,:,1);
Daniel@0:         end
Daniel@0:     end
Daniel@0:     if i == 1
Daniel@0:         x{1,1} = ['mean',t];
Daniel@0:         x{1,2} = ['std',t];
Daniel@0:     end
Daniel@0:     x{i+1,1} = mean(mean(vi));
Daniel@0:     x{i+1,2} = mean(std(vi));
Daniel@0:     pti = pt{i};
Daniel@0:     ppi = pp{i};
Daniel@0:     if not(isempty(ppi{1}))
Daniel@0:         if iscell(ppi{1})
Daniel@0:             ppi = ppi{1}; %% Segmented audio cannot be exported properly now.
Daniel@0:             pti = pti{1};
Daniel@0:             if iscell(pti{1})
Daniel@0:                 pti = ppi;
Daniel@0:             end
Daniel@0:         end
Daniel@0:         for j = 1:size(vi,2)
Daniel@0:             pep = ppi{1,j,1};
Daniel@0:             if isempty(pep)
Daniel@0:                 pet(j) = NaN;
Daniel@0:                 pev(j) = NaN;
Daniel@0:             else
Daniel@0:                 pet(j) = pti{1,j,1}(1);
Daniel@0:                 if size(vi,3) > 1 && size(vi,1) == 1
Daniel@0:                     pev(j) = pep(1);
Daniel@0:                 else
Daniel@0:                     pev(j) = vi(pep(1),j,1);
Daniel@0:                 end
Daniel@0:             end
Daniel@0:         end
Daniel@0:         if frames
Daniel@0:             if i == 1
Daniel@0:                 x{1,3} = ['meanpeakpos',t];
Daniel@0:                 x{1,4} = ['stdpeakpos',t];
Daniel@0:                 x{1,5} = ['meanpeakval',t];
Daniel@0:                 x{1,6} = ['stdpeakval',t];
Daniel@0:             end
Daniel@0:             x{i+1,3} = mean(pet);
Daniel@0:             x{i+1,4} = std(pet);
Daniel@0:             x{i+1,5} = mean(pev);
Daniel@0:             x{i+1,6} = std(pev);
Daniel@0:         else
Daniel@0:             if i == 1
Daniel@0:                 x{1,3} = ['peakpos',t];
Daniel@0:                 x{1,4} = ['peakval',t];
Daniel@0:             end
Daniel@0:             x{i+1,3} = pet;
Daniel@0:             x{i+1,4} = pev;
Daniel@0:         end
Daniel@0:     end
Daniel@0: end