# \donttest{
library(Spillover)
require(tidyr)
require(dplyr)
require(ggplot2)
data(dy2012)
dy_results <- dynamic.spillover(data=dy2012, width=200, remove.own = FALSE)
pp_from <- plotdy(dy_results, direction = "from")
pp_from +
labs(title="Any title") +
facet_wrap(~variables, ncol = 2)
pp_to <- plotdy(dy_results, direction = "to")
pp_net <- plotdy(dy_results, direction = "net")
pp_netpairwise <- plotdy(dy_results, direction = "net_pairwise")
pp_from_to_pairwise <- plotdy(dy_results, direction = "from_to_pairwise")
# }
Run the code above in your browser using DataLab