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

## ----nc_read, eval = FALSE----------------------------------------------------
#  nc_data <- nc_read(path = "~/Desktop/network_canvas_directory/",
#                     protocol = "~/Desktop/protocol_directory/nc_protocol.netcanvas"
#                     cat.to.factor = TRUE)

## ----nc_merge, eval = FALSE---------------------------------------------------
#  
#  nc_merge(path = "~/Desktop/network_canvas_directory/",
#           export_path = "~/Desktop/merged_network_canvas_directory/")
#  
#  
#  nc_data <- nc_read(path = "~/Desktop/merged_network_canvas_directory/",
#                     cat.to.factor = TRUE)

## ----ego_netwrite, eval = FALSE-----------------------------------------------
#  nc_netwrite <- ego_netwrite(egos = nc_data$egos,
#                              ego_id = "ego_id",
#                              alters = nc_data$alters,
#                              alter_id = "alter_id",
#                              alter_ego = "ego_id",
#                              alter_alter = nc_data$alter_edgelists,
#                              aa_ego = "ego_id",
#                              i_elements = "from",
#                              j_elements = "to")

## ----ego_netwrite_multi, eval = FALSE-----------------------------------------
#  # Extract ego list and pertinent alter list and alter-alter edgelists
#  egos <- nc_data$egos
#  people <- nc_data$alters$people
#  people_ties <- dplyr::bind_rows(nc_data$alter_edgelists$friends,
#                                  nc_data$alter_edgelists$family,
#                                  nc_data$alter_edgelists$romantic)
#  
#  # Feed these objects into `ego_netwrite` and indicate identifier variables
#  nc_people <- ego_netwrite(egos = egos,
#                              ego_id = "ego_id",
#                              alters = people,
#                              alter_id = "alter_id",
#                              alter_ego = "ego_id",
#                              alter_alter = people_ties,
#                              aa_ego = "ego_id",
#                              i_elements = "from",
#                              j_elements = "to",
#                              aa_type = "edge_type")

## ----ego_netwrite_vignette, eval = FALSE--------------------------------------
#  vignette("ego_netwrite", package = "ideanet")

## ----egor_install, eval = FALSE-----------------------------------------------
#  install.packages("egor")

## ----egor, eval = FALSE-------------------------------------------------------
#  # Create `egor` object
#  nc_egor <- egor::egor(alters = nc_data$alters,
#                            egos = nc_data$egos,
#                            aaties = nc_data$alter_edgelists,
#  
#                            ID.vars = list(
#                              ego = "ego_id",
#                              alter = "alter_id",
#                              source = "from",
#                              target = "to"
#                            ))
#  
#  # Inspect and analyze `egor` object
#  summary(nc_egor)
#  egor::ego_density(nc_egor)

## ----egor_mult, eval = FALSE--------------------------------------------------
#  
#  # Extract ego list and pertinent alter list and alter-alter edgelists
#  egos <- nc_data$egos
#  people <- nc_data$alters$people
#  
#  friends <- nc_data$alter_edgelists$friends
#  family <- nc_data$alter_edgelists$family
#  romantic <- nc_data$alter_edgelists$romantic
#  
#  # `egor` object for friendship ties
#  friends_egor <- egor::egor(alters = people,
#                            egos = egos,
#                            aaties = friends,
#  
#                            ID.vars = list(
#                              ego = "ego_id",
#                              alter = "alter_id",
#                              source = "from",
#                              target = "to"
#                            ))
#  
#  # `egor` object for family ties
#  family_egor <- egor::egor(alters = people,
#                            egos = egos,
#                            aaties = family,
#  
#                            ID.vars = list(
#                              ego = "ego_id",
#                              alter = "alter_id",
#                              source = "from",
#                              target = "to"
#                            ))
#  
#  # `egor` object for romantic ties
#  family_egor <- egor::egor(alters = people,
#                            egos = egos,
#                            aaties = romantic,
#  
#                            ID.vars = list(
#                              ego = "ego_id",
#                              alter = "alter_id",
#                              source = "from",
#                              target = "to"
#                            ))