R/get_pairs_plot.R

In 3schwartz/SpecialeScrAndFun: Script and functions used for master thesis.

#' get_pairs_plot
#'
#' @param prices list which will be made pairs plot of each element
#' @param outdir location to save the plots
#'
#' @return save pair plot of each element in the list prices
#' @export
#'
get_pairs_plot <- function(prices, outdir) {
  for (i in 1:length(prices)) {
    pdf(file = paste0(outdir, names(foo)[i], ".pdf"),
        height = 6, width = 8)
    as.matrix((pobs(foo[[i]]))) %>%
      pairs()
    dev.off()
  }
}