Mixing matrix glitches

[mbojan]

Following recent updates to network::mixingmatrix.network() the egodata method needs:

• proper handling of NAs, e.g.:

d> data(emon)
d> mixingmatrix(emon$Texas, "Formalization")
      To
From   0.5   1   2   3   4 <NA> Sum
  0.5    0   6   3   1   1    1  12
  1      4  36  17  20   5    8  90
  2      2  14   3   5   1    5  30
  3      3  18   6   3   1    0  31
  4      1   7   2   2   0    1  13
  <NA>   1   3   4   2   0    0  10
  Sum   11  84  35  33   8   15 186
d> mixingmatrix(as.egodata(emon$Texas), "Formalization")
    0.5  1  2  3  4
0.5   0 10  5  4  2
1    10 72 31 38 12
2     5 31  6 11  3
3     4 38 11  6  3
4     2 12  3  3  0
Note:  Marginal totals can be misleading for undirected mixing matrices.

• throw informative error if attrname is not in the data

d> mixingmatrix(as.egodata(emon$Texas), "no-such-attribute")
 Error in `[[<-.data.frame`(`*tmp*`, attrname, value = integer(0)) : 
  replacement has 0 rows, data has 25