ret1 <- D.SN(0.1, 10) # y = 0.1, a = 10
ret2 <- D.SN(-0.1, -10) # y = -0.1, a = 10
ret3 <- D.SN(rnorm(10), rnorm(10)) # y and a are a vector
# y and a are matrices
ret4 <- D.SN(matrix(rnorm(10), 2, 5), matrix(rnorm(10), 2, 5))
Run the code above in your browser using DataLab