## ----echo=FALSE, cache=FALSE, eval=TRUE-----------------------------------------------------------------------------------------------------------------------
library(knitr)
library(rmarkdown)
library(ergm)
library(ergm.multi)
options(rmarkdown.html_vignette.check_title = FALSE)
opts_chunk$set(warning= FALSE,message=FALSE, echo=TRUE, cache=TRUE, autodep=TRUE,
concordance=TRUE, error=FALSE, fig.width=7, fig.height=7)
options(width=160)

## ----setup----------------------------------------------------------------------------------------------------------------------------------------------------
library(ergm.sign)

## -------------------------------------------------------------------------------------------------------------------------------------------------------------
data("tribes")

## -------------------------------------------------------------------------------------------------------------------------------------------------------------
summary(tribes)

## -------------------------------------------------------------------------------------------------------------------------------------------------------------
summary(tribes ~ edges + Pos(~ edges) + Neg(~ edges))

## -------------------------------------------------------------------------------------------------------------------------------------------------------------
plot(tribes, displaylabels = TRUE)

## -------------------------------------------------------------------------------------------------------------------------------------------------------------
fit <- ergm.sign(tribes ~ Pos(~ edges) + Neg(~ edges))
summary(fit)

## -------------------------------------------------------------------------------------------------------------------------------------------------------------
triad_fit <- ergm.sign(tribes ~ gwese(0.5, base = "+") + gwesf(0.5, base = "+"))
summary(triad_fit)

## -------------------------------------------------------------------------------------------------------------------------------------------------------------
gof_data <- gof(triad_fit, nsim = 20)
plot(gof_data)