# Set up network of smoking cessation data
head(smoking)
smk_net <- set_agd_arm(smoking,
study = studyn,
trt = trtc,
r = r,
n = n,
trt_ref = "No intervention")
# Print details
smk_net
# Convert to igraph object
igraph::as.igraph(smk_net) # Edges combined by default
igraph::as.igraph(smk_net, collapse = FALSE) # Without combining edges
# Convert to tbl_graph object
tidygraph::as_tbl_graph(smk_net) # Edges combined by default
tidygraph::as_tbl_graph(smk_net, collapse = FALSE) # Without combining edges
Run the code above in your browser using DataLab