sas_ttest np com transpose

Data a;
INPUT dia	poluente $	conc_ar;
datalines;
1	ox_nit	104
2	ox_nit	116
3	ox_nit	84
4	ox_nit	77
5	ox_nit	62
6	ox_nit	84
7	ox_nit	81
8	ox_nit	72
9	ox_nit	61
10	ox_nit	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; run;

proc print data=A; run;

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

data B;
set B;
/*drop _LABEL_;*/
DIF=hc-ox_nit;
run;
proc print data=B; run;

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