gui_ssa_add_to_data.m

主成分分析和偏最小二乘SquaresPrincipal成分分析（ PCA ）和偏最小二乘（ PLS ）

function gui_ssa_add_to_data;
% GUI_SSA_ADD_TO_DATA add to dataset group components of SSA. 
%
% last modified 11.02.05

global TS SSA GSD_GLOBALS

grN=length(SSA.groups);
str={};
ylabel_str={};
curr_g=1;
for i=1:grN
    if ~isempty(SSA.groups{i})
        str{curr_g}=['group ' num2str(curr_g) ': '];
        ylabel_str{curr_g}=['group ' num2str(curr_g)];
        for j=1:length(SSA.groups{i})
            str{curr_g}=[str{curr_g} ' ' num2str(SSA.groups{i}(j))];
        end
        curr_g=curr_g+1;
    end
end

[selection,ok] = listdlg('PromptString','Select group:',...
    'SelectionMode','multiple','ListString',str);

if ok
    N=length(selection);
    k=length(TS.name);
    for i=1:N
%         TS=[TS ts(ssa_get_group_component(SSA,selection(i)),['ssa_gr' num2str(selection(i))])];
        TS.data=[TS.data ssa_get_group_component(SSA,selection(i))];
        TS.name{k+i}=['ssa_gr' num2str(selection(i))];
    end
    
    if ~GSD_GLOBALS.en_dis.datapresent
        set(findobj('tag','MainFig'),'name',['Lab432  [SSA groups data]']);
    end
    GSD_GLOBALS.en_dis.datapresent=1;
    gui_en_dis;
end