data SNPdata; input datalines;	ID	Trait	SNP1	SNP2	SNP3	SNP4	SNP5	SNP6	SNP7	SNP8	SNP9	SNP10;
1	7.2	0	1	1	0	2	0	1	0	0	2
2	6.8	0	1	1	1	1	0	2	0	0	2
3	3.2	1	0	0	0	2	1	2	1	1	1
4	10.1	2	1	1	0	2	2	2	1	0	2
5	9.8	2	0	0	1	1	2	1	1	1	1
.	.	.	.	.	.	.	.	.	.	.	.
.	.	.	.	.	.	.	.	.	.	.	.
.	.	.	.	.	.	.	.	.	.	.	.
run;
proc varclus data = SNPdata outstat = ClusterOut maxclusters = 3; var SNP1 SNP2 SNP3 SNP4 SNP5 SNP6 SNP7 SNP8 SNP9 SNP10; run;
data MakeScore; set ClusterOut; where _NCL_ = 3 or _NCL_ =.; run;
proc score data = SNPdata out = ClusData score = Makescore; var SNP1 SNP2 SNP3 SNP4 SNP5 SNP6 SNP7 SNP8 SNP9 SNP10; run;
proc genmod data = ClusData; model Trait = Clusl Clus2 Clus3; run;