/* 1. feladat */
DATA laszlo_anna;
 SET zh_kornyezettan_2011_osz;
RUN;

/* 2. feladat */
PROC contents data= laszlo_anna;	
RUN;

/* 3. feladat */
DATA laszlo_anna;
 SET laszlo_anna;
 rename datum=d
		nitrogen=n
		foszfor=p;					
RUN;

DATA laszlo_anna;
 SET laszlo_anna;
 label d="Dátum"
	   n="Nitrogén"
	   p="Foszfor"
	   ph="PH érték";		
RUN;		

/* 4. feladat */
PROC SORT data=laszlo_anna OUT=x;
 by ph;								
RUN;

/* 5. feladat */
DATA ptlan paros;							
SET laszlo_anna;
 	 if mod(_N_,2)=1 then output ptlan;					
 	 else output paros;								
RUN;

/* 6. feladat */
PROC MEANS data=laszlo_anna;					
 var n p ph;									
RUN;
PROC MEANS data=ptlan;					
 var n p ph;									
RUN;
PROC MEANS data=paros;					
 var n p ph;									
RUN;

/* 7. feladat */
PROC UNIVARIATE data=laszlo_anna;					
 var ph;										
RUN;

/* 8. feladat */
DATA laszlo_anna;
 SET laszlo_anna;								
 nm = n/1000;									
 pm = p/1000;									
RUN;

/* 9. feladat */
PROC GPLOT data=laszlo_anna;
 plot n*d;
RUN;

/* 10. feladat */
DATA laszlo_anna;
 SET laszlo_anna;
 if ph<7.3 then phh="Kicsi";
  else if ph<8.6 then phh="Kozep";
  else phh="Nagy";
RUN;

title "Átlagos nitrogén és foszfor (ug/dm3) értékek PH csoportok szerint 365 nap mért adatából";
PROC TABULATE data=laszlo_anna;
 class phh;
 var n p;
 table phh="", 
       n*mean p*mean
  	   /box="PH érték";
 keylabel mean=" ";
RUN;