Problème avec PROC TRANSOSE SAS

Bonjour,

Je te propose cette solution:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
data test;
input id test1 test1unit $ test2 test2unit $ test3 test3unit $ date date9.;
format date date9.;
cards;
1 .   mg .     g 46 mg 17feb2015
1 .   mg 21.42 g 46 mg 18feb2015
1 .   mg 21.42 g 46 mg 19feb2015
1 .   mg 21.42 g 46 mg 20feb2015
1 .   mg .     g 46 mg 21feb2015
1 490 mg .     g .  mg 22feb2015
 
;
 
run;
 
data test1(keep=id tests dose testunit date);
set test;
array testt test1-test3;
array testunitt $ test1unit test2unit test3unit;
do i=1 to dim(testt);
if testt(i) ne . then do;
tests=vname(testt(i));
dose=testt(i);
testunit=testunitt(i);
id=id ;
date=date;
output;
end;
end;
 
run;
 
proc sort data =test1; by tests; run;

Cordialement