## Causality tests ## Granger and instantaneous causality var.causal <- causality(varsimest, cause = "y2")