ET_PDToolkit/PDToolkit/@PDExperiment/remove_aggregate.m

16 lines
326 B
Mathematica
Raw Normal View History

2018-06-12 14:49:55 +02:00
function[e] = remove_aggregate(e)
fig = e.handle(2);
figure(fig);
group_list = findobj('Tag', 'group_list');
selected_group = get(group_list, 'Value')
%e.aggregates(selected_group) = [];
for i =selected_group+1:length(e.aggregates)
e.aggregates(i) = e.aggregates(i-1);
end
e.aggregates(end) = [];
e.update_aggregates;