##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (t1, t2, alpha = 2, A1 = 0, A2 = 0, B1 = 2, B2 = 2,
...)
eval({
t1 <- t1
t2 <- t2
alpha <- alpha
A1 <- A1
A2 <- A2
B1 <- B1
B2 <- B2
.psiAlog
})Run the code above in your browser using DataLab