powered by
psiOne
getK
psiOne(u, k = 1.345, deriv = FALSE) getK(k)
TRUE
set.seed(1) u <- rnorm(10) psiOne(u, k = 1.345, deriv = FALSE)
Run the code above in your browser using DataLab