Work done with Lisa, week of October 24.
Originally sent as email attachment; 
posted on class website on Halloween.  - Jim M.

a = 
      Table[ ToString[row] <> ":"  <> ToString[col],  {row, 1, 
          10}, {col, 1, 20}]

a // MatrixForm

a[[5, 6]]

a[[2, All]]

a[[All, 2]]

\(\(data = {
{"name", \ "age", \ "sex", "phone"}, 
{"Bob", 
            21, \ "m", \ "-"}, 	\ \ 
{"Alice", 
            18, "f", \ "222-3333"}
};\)\)

data // MatrixForm

data[[All, 2]]

data[[3,  
        All]]

badDataRows = {};
\(\(Do[
If[
          data[\([row, 
                4]\)] == "-", \ \ 
 (*then*) \ \ AppendTo[badDataRows, row], 
 (*else*) 
            If[\ \ data[\([row, 3]\)] == "f", 
            Print[\ data[\([row, 
                  4]\)]]\ ]
\ \ ]
, {row, 
          2, 3}
];\)\)

badDataRows