data nox2 ;
set nox2 END=vege;
retain k k75 k60 k50;
if _N_ eq 1 then do ; k= 0 ; k75= 0 ; k60= 0 ; k50=0 ; end ;
noxt=nox+1.5 ; /* műszerek tűréshatára miatti korrekció */
k=k+1 ;
if noxt gt 50 then k50=k50+1 ;
if noxt gt 60 then  do ;
						k60=k60+1 ;
		put "48 órán belül szűrőcsere" ;
				   end ;
if noxt gt 75 then k75=k75+1 ;
output;
if vege eq 1 then do ;
			put "a 60-s értéket meghaladó mérések száma:" k60 ;
            put "a 75-s értéket meghaladó mérések száma:" k75 ;
if k50 gt k*0.4 then put "Le kell állítani az erőművet" k k50 ;
			      end ;
run ;

data noxparos noxptatlan ;
set nox2 ;
if mod(_N_,2) eq 1 then output noxptatlan ;
                   else output noxparos ;
run ;

proc gplot data= nox2 ;
 plot nox*dátum ;
 run ;
 proc gplot data= noxparos ;
 plot nox*dátum ;
 run ;
 proc gplot data= noxptatlan ;
 plot nox*dátum ;
 run ;