This is a TEMPORARY FIX for the artefactcorrection step for 13 CRFs with faulty …

…events for a few crops.

@@ -278,7 +278,8 @@ for i0=1:size(t,1)
             indexint=[4*StartInterpolation:4*EndInterpolation];
             indexint=[4*StartInterpolation:4*EndInterpolation];
             GoodEvent=[];
             GoodEvent=[];
             for i1=1:length(ev)
             for i1=1:length(ev)
-                if strcmp(EventType,strvcat(ev(i1).type))
+                disp(ev(i1))                
+                if strcmp(EventType,strvcat(ev(i1).type)) && ev(i1).time > timeonset(D)
                     GoodEvent=[GoodEvent i1];
                     GoodEvent=[GoodEvent i1];
                     ind=indsample(D,ev(i1).time);
                     ind=indsample(D,ev(i1).time);
                     ind1=[ind+4*StartInterpolation];
                     ind1=[ind+4*StartInterpolation];
@@ -388,7 +389,7 @@ for i0=1:size(t,1)
                 n=0;
                 n=0;
                 for i1=1:length(ev)
                 for i1=1:length(ev)
                     %         if ~isempty(intersect(EventType,ev(i1).value))
                     %         if ~isempty(intersect(EventType,ev(i1).value))
-                    if strcmp(EventType,ev(i1).type)
+                    if strcmp(EventType,ev(i1).type) && ev(i1).time > timeonset(D)
                         n=n+1;
                         n=n+1;
                         ind=indsample(D,ev(i1).time);
                         ind=indsample(D,ev(i1).time);
                         ind1=[ind1 ind+StartInterpolation(i2,n)];
                         ind1=[ind1 ind+StartInterpolation(i2,n)];
@@ -414,7 +415,7 @@ for i0=1:size(t,1)
             PeakMax=0.003;      %Could be defined as argument
             PeakMax=0.003;      %Could be defined as argument
             Artefact=[];
             Artefact=[];
             for i1=1:length(ev)
             for i1=1:length(ev)
-                if strcmp(EventType,strvcat(ev(i1).type))
+                if strcmp(EventType,strvcat(ev(i1).type)) && ev(i1).time > timeonset(D)
                     T2=indsample(D,S.StartInterpolation+ev(i1).time);
                     T2=indsample(D,S.StartInterpolation+ev(i1).time);
                     T3=indsample(D,S.EndInterpolation+ev(i1).time);
                     T3=indsample(D,S.EndInterpolation+ev(i1).time);
                     T4=indsample(D,PeakMin+ev(i1).time);
                     T4=indsample(D,PeakMin+ev(i1).time);
@@ -460,7 +461,7 @@ for i0=1:size(t,1)
             %Apply correction
             %Apply correction
             n=0;
             n=0;
             for i1=1:length(ev)
             for i1=1:length(ev)
-                if strcmp(EventType,strvcat(ev(i1).type))
+                if strcmp(EventType,strvcat(ev(i1).type)) && ev(i1).time > timeonset(D)
                     T2=indsample(D,S.StartInterpolation+ev(i1).time);
                     T2=indsample(D,S.StartInterpolation+ev(i1).time);
                     T3=indsample(D,S.EndInterpolation+ev(i1).time);
                     T3=indsample(D,S.EndInterpolation+ev(i1).time);
                     if ~isnan(T3)
                     if ~isnan(T3)

The reason for this temporary workaround is to avoid doing a rollback of the cropping step and thus losing the result of the quality control.