Assume a factor coded under a genotypic model as the main effect without interaction
Estimate ‘dominant’ geno -1 0.5 0.5 ‘recessive’ geno -0.5 -0.5 1 ‘additive’ geno 0 0.3333333
0.6666667/adj=simulate;
The function may be available in other SAS Proc