data <- data.frame(Gender=c(rep("Man",3),rep("Woman",3)),
Opinion=c("Yes","Yes","No","No","No","Yes"))
arguments <- list(
variables = c("Gender", "Opinion"),
dichotomies = "Opinion",
valueDicho = "Yes",
plot = c("surCoin","network")
)
graph <- caring_create_graphs(data,arguments)
if (FALSE) {
plot(graph)
}
Run the code above in your browser using DataLab