GridBox Question

*To*: mathgroup at smc.vnet.net*Subject*: [mg84175] GridBox Question*From*: John <jwa0 at lehigh.edu>*Date*: Wed, 12 Dec 2007 19:58:00 -0500 (EST)

The cell listed below is in a notebook, and its evaluation created a 2x6 grid, which was filled with random integers. Cell[GridBox[{Flatten[ xxx = RandomInteger[ MultinomialDistribution[100, {1/6, 1/6, 1/6, 1/6, 1/6, 1/6}], 1]], Flatten[ yyy = RandomInteger[ MultinomialDistribution[100, {1/6, 1/6, 1/6, 1/6, 1/6, 1/6}], 1]]}, GridFrame -> 2.1, GridFrameMargins -> {{2, 2}, {2, 2}}, RowLines -> 1, ColumnLines -> 1] // DisplayForm, "Text", CellMargins -> {{Inherited + 200, Inherited}, {10, 10}}], The 2x6 grid is a contingency table, and the analysis of it requires a calculation that yields a single number, which I want to evaluate in a subsequent cell. The values of xxx and yyy are needed to do the calculation. John