sas_reshaping long_wide

DATA A;
INPUT dia poluente $ conc_ar;
DATALINES;
1	oxn 	104
2	oxn 	116
3	oxn 	84
4	oxn 	77
5	oxn 	62
6	oxn 	84
7	oxn 	81
8	oxn 	72
9	oxn 	61
10	oxn 	97
1	hc	108
2	hc	118
3	hc	89
4	hc	71
5	hc	66
6	hc	83
7	hc	88
8	hc	76
9	hc	68
10	hc	96
;
proc sort data= A; by dia;
proc print data=A; run;

proc transpose data=A out=B(drop=_name_);
      var conc_ar;
      id poluente;
      by dia;
run;
proc print data=B; run;

data B;
set B;
drop _LABEL_;
DIF=hc-oxn;
run;
proc print data=B; run;

PROC UNIVARIATE NORMAL DATA=C;
VAR DIF;
RUN;