## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----include = FALSE----------------------------------------------------------
library(shinySbm)

## ----setup,eval=FALSE---------------------------------------------------------
# library(shinySbm)
# shinySbmApp()

## ----echo=FALSE, out.width="100%"---------------------------------------------
knitr::include_graphics("images/shinysbmapp1.png")

## ----echo=FALSE, out.width="100%"---------------------------------------------
knitr::include_graphics("images/shinysbmapp2.png")

## ----echo=FALSE, out.width="100%"---------------------------------------------
knitr::include_graphics("images/shinysbmapp3.png")

## ----echo=FALSE, out.width="100%"---------------------------------------------
knitr::include_graphics("images/shinysbmapp4.png")

## -----------------------------------------------------------------------------
# Loading Dataset 
myNetworkMatrix <- fungusTreeNetwork$fungus_tree

# Fiting SBM
mySbmModel <- estimateBipartiteSBM(netMat = myNetworkMatrix, model = 'bernoulli',
                                   estimOptions = list(plot = F, verbosity = 0))

## ----eval=FALSE---------------------------------------------------------------
# vignette("SBM_fungus_tree_network")

## ----out.width="100%",fig.width = 12,fig.height = 5---------------------------
plotSbm(
  mySbmModel,
  ordered = TRUE,
  transpose = TRUE,
  labels = c(row = 'Fungus', col = 'Trees'),
  plotOptions = list(
    showLegend = FALSE,
    showPredictions = TRUE
  ))

## ----out.width="100%"---------------------------------------------------------
visSbm(
  x = mySbmModel,
  labels = c(row = 'Fungus', col = 'Trees'),
  directed = TRUE,
  settings = list(
    edge_threshold = 'default',
    arrows = TRUE,
    arrow_start = 'row'
  ))