[HS,time]=decluster(dat_HS,0,Tmin);
dat_HSpot1=[time HS];
optionsdisp.method='MPS';
subplot(2,2,3);
%STEP 2: Excess mean over threshold
dat_HSpot1sort=sort(dat_HSpot1(:,2));
mrl=reslife(dat_HSpot1sort);
plot(mrl,'b');
for io=numel(mrl.data):-1:1
CI=mrl.dataCI(io:end,:);
if ~(max(CI(:,1))<=mrl.data(io) && mrl.data(io)<=min(CI(:,2)))
thres_mrl=mrl.args(io); % Retira threshold minima por MRL
break;
end
end
vline(thres_mrl,'g');