ACTU-457 (Mast 724) Risk Theory

library(sn)

Loading required package: stats4
Package 'sn', 2.1.1 (2023-04-04). 
Type 'help(SN)' and 'help("overview-sn")' for basic information.
The package redefines function 'sd' but its usual working is unchanged.

Attaching package: ‘sn’

The following object is masked from ‘package:stats’:

    sd

x1 <- plot(density(rsn(n=1000000, xi=0, omega=1, alpha=0, tau=0,  dp=NULL)),ylim=c(0,0.7),lwd=4, main="Skewed Densities",xlab="X")
x2 <- lines(density(rsn(n=1000000, xi=0, omega=1, alpha=3, tau=0,  dp=NULL)), col = "cyan",lwd=4)

x3 <- lines(density(rsn(n=1000000, xi=0, omega=1, alpha=5, tau=0,  dp=NULL)), col = "magenta",lwd=4)
x4 <- lines(density(rsn(n=1000000, xi=0, omega=1, alpha=-3, tau=0,  dp=NULL)), col = "green",lwd=4)

x5 <- lines(density(rsn(n=1000000, xi=0, omega=1, alpha=-5, tau=0,  dp=NULL)), col = "blue",lwd=4)
legend(2, 0.7, legend=c("Normal", "Right Skewed","Right Skewed","Left Skewed","Left Skewed"),
fill = c("black","cyan", "magenta", "green", "blue"))