idios <- grep ("IDIO", names (d))
table (c (as.matrix (d[idios])))