# NOT RUN {
out <- impact(depression[,1:3])
# }
# NOT RUN {
out1 <- impact(depression)
out2 <- impact(depression, gamma=0.65, nodes=c("sleep_disturbance", "psychomotor_retardation"))
out3 <- impact(social, binary.data=TRUE)
out4 <- impact(social, nodes=c(1:6, 9), binary.data=TRUE)
summary(out1)
plot(out1)
# Extract the impact of psychomotor_retardation on the
# edge that runs between worthlessness and fatigue
out1$Edge$impact[["psychomotor_retardation"]]["worthlessness", "fatigue"]
# Extract edge impacts of node Dan in edgelist format
out3$Edge$edgelist$Dan
# Visualize edge impacts of psychomotor_retardation
# as a single network
plot(out1$Edge, nodes="psychomotor_retardation", type.edgeplot="single")
# Visualize the edge impacts of psychomotor_retardation
# as contrast between high and low
plot(out1$Edge, nodes="psychomotor_retardation", type.edgeplot="contrast")
# }
Run the code above in your browser using DataLab