sample 21 c2 c3
Unstack c1 c4 c5;
subs c3;
varnames.
let c6(k1)=mean(c5)-mean(c4)
let k1=k1+1