## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(netCoin)
library(htmltools)
data("ess")

## -----------------------------------------------------------------------------
head(ess)

## -----------------------------------------------------------------------------
set <- c("Social participation", "Political participation", "Gender", "Age")
essCoin <- surCoin(data = ess, variables = set)
essCoin

## ----eval=FALSE, warning=FALSE------------------------------------------------
# plot(essCoin)

## ----echo=FALSE, out.width='98%'----------------------------------------------
knitr::include_graphics("ess-a.png")

## ----eval=FALSE, warning=FALSE------------------------------------------------
# essCoin <- surCoin(data = ess,
#                     variables = set,
#                     dichotomies = c("Social participation", "Political participation"),
#                     valueDicho = "Yes"
#                     )
# plot(essCoin)

## ----echo=FALSE, out.width='98%'----------------------------------------------
knitr::include_graphics("ess-b.png")

## ----eval=FALSE, warning=FALSE------------------------------------------------
# essCoin <- surCoin(data = ess,
#                     variables = set,
#                     dichotomies = c("Social participation", "Political participation"),
#                     valueDicho = "Yes",
#                     weight = "cweight",
#                     procedures = c("f", "i", "h"),
#                     )
# plot(essCoin)

## ----echo=FALSE, out.width='98%'----------------------------------------------
knitr::include_graphics("ess-c.png")

## ----eval=FALSE, warning=FALSE------------------------------------------------
# essCoin <- surCoin(data = ess,
#                     variables = set,
#                     dichotomies = c("Social participation", "Political participation"),
#                     valueDicho = "Yes",
#                     weight = "cweight",
#                     procedures = c("f", "i", "h"),
#                     exogenous = c("Gender", "Age"),
#                     degreeFilter = 1,
#                     )
# plot(essCoin)

## ----echo=FALSE, out.width='98%'----------------------------------------------
knitr::include_graphics("ess-d.png")

## ----eval=FALSE, warning=FALSE------------------------------------------------
# essCoin <- addNetCoin(essCoin,
#                     color = "variable",
#                     size = "%")
# print(essCoin$nodes[1:5,], row.names=FALSE)
# 
# plot(essCoin)

## ----eval=FALSE, echo=FALSE, out.width='98%'----------------------------------
# knitr::include_graphics("ess-e.png")

## ----eval=FALSE, warning=FALSE------------------------------------------------
# essCoin <- addNetCoin(essCoin,
#                     shape = "degree")
# 
# plot(essCoin)

## ----echo=FALSE, out.width='98%'----------------------------------------------
knitr::include_graphics("ess-f.png")

## ----eval=FALSE---------------------------------------------------------------
# essCoin <- addNetCoin(essCoin,
#                     dir = "./temp/ess/"
#                     )

## ----eval=FALSE---------------------------------------------------------------
# essCoin.igraph <- toIgraph(essCoin)