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