generating skewed normal plots in R

skewCharts.R

library(fGarch)
skew_plot = function(skewParam = 1, std=1, color = 'black', xmin = -5, xmax = 5) {
  x <- seq(xmin, xmax, length = 200)
  y <- dsnorm(x, sd=std, xi = skewParam)
  plot(x, y, type = 'l', col = color)
}

add_line = function(skewParam = 1, std=1, color = 'black', xmin = -5, xmax = 5) {
  x <- seq(xmin, xmax, length = 200)
  y <- dsnorm(x, sd=std, xi = skewParam)
  lines(x, y, type = 'l', col = color)
}