MathGroup Archive 2007

[Date Index] [Thread Index] [Author Index]

Search the Archive

GridBox Question


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



  • Prev by Date: Expanding powers of cosine
  • Next by Date: Role for print management
  • Previous by thread: Re: Expanding powers of cosine
  • Next by thread: Role for print management