# my_sbm <- sbm::estimateBipartiteSBM(sbm::fungusTreeNetwork$fungus_tree,
# model = 'bernoulli')
my_sbm <- FungusTreeNetwork$sbmResults$fungus_tree
get_flextable(my_sbm,
labels = c(row = "Fungus", col = "Trees"),
type = "blockProp"
)
get_flextable(my_sbm,
labels = c(row = "Fungus", col = "Trees"),
type = "connectParam", settings = list(digits = 5)
)
get_flextable(my_sbm,
labels = "default",
type = "storedModels", settings = list(caption = "New Title")
)
Run the code above in your browser using DataLab