ggblock function

Plot Blockmodel matrix