{r ,eval=T,fig.width=12, fig.height=6,include=FALSE}
if (length(relensemble)>2) {
  netw=network(object,
               method = "symdiff", 
               edge.col=grDevices::grey.colors,
               edge.lwd=1,
               rate=1.05,
               cols=cols
               )
  
  plot.new()
  leg=legend("topright",  names(netw$leg.col), lwd = 1, col = netw$leg.col, bg =NA,plot=F,cex=.8)
  w <- grconvertX(leg$rect$w, to='inches')
  addy=6+w
} else addy=1

{r network, fig.width=addy, fig.height=6,out.width='100%'}
if (length(relensemble)>2) {
  plot(netw,
       layoutType = "neato",
       fixedsize=TRUE,
       # fontsize,
       # width,
       # height,
       shape="ellipse",
       cex=.8
       )
}