if (FALSE) {
filename <- "demo.sav"
arguments <- list(
variables = c("Gender", "Income category in thousands",
"Primary vehicle price category"),
plot = "network"
)
graph <- caring(filename,arguments)
plot(graph)
}
Run the code above in your browser using DataLab