Devore (1982) discussed an example in which it is examined whether the phenotypes produced from a dihybrid cross of tall cut-leaf tomatoes with dwarf potato-leaf tomatoes obey the Mendelian laws of inheritance.

There are four categories corresponding to the four possible phenotypes, tall cut-leaf, tall potato-leaf, dwarf cut-leaf, and dwarf potato-leaf, with respective expected probabilities p1, p2, p3, and p4. The null hypothesis of interest is H0 : p1 = 9 16, p2 = 3 16, p3 = 3 16, p4 = 1 16 Write a SAS program to perform a chi-square goodness-of-fit at α = 0.05 of this hypothesis given that the observed counts in each category in a sample of size 1611 are 926, 288, 293, and 104, respectively.