data t1; input Machine $ Time :time8. Date :mmddyy8.; datalines; A1 15:35:35 11/07/15 A2 10:59:06 11/04/15 A1 15:42:23 11/07/15 ; data t2; input Machine $ Time :time8. Date :mmddyy8.; datalines; A1 15:38:35 11/07/15 A2 10:55:06 11/04/15 A3 15:45:23 11/07/15 ;
/* Concatenate the tables, create datetimes */ data t; set t1 t2; dt = dhms(date, hour(time), minute(time), second(time)); format dt datetime19. date date9. time time8.; run;
proc sort data=t; by machine dt; run;
/* Drop records that are less than 15 min. from previous */ data want; do until(last.machine); set t; by machine; if dt - '00:15:00't > lastDT then do; output; lastDT = dt; end; end; drop lastDT; run;
proc print data=want noobs; run;
instead of of removing them I wanted to keep 15 min or less an remove 15 min greater
... View more