text: marr <-
  structure(c(5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 9, 0, 0, 0, 0, 
  0, 0, 0, 0, 0, 1, 2, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 4, 10, 
  0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 3, 17, 0, 0, 0, 0, 0, 0, 0, 0, 
  0, 0, 2, 12, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 3, 19, 0, 0, 0, 0, 
  0, 0, 0, 0, 0, 0, 2, 6, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 5, 16, 
  0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 4, 15, 0, 0, 0, 0, 0, 0, 0, 0, 
  0, 0, 3, 12, 16, 23, 33, 27, 26, 36, 21, 40, 18, 36, 39), .Dim = 11:12)
  n_occasions <-
  12L
  