# NOT RUN {
## The function is currently defined as
function(q, df = 1, mean = 0, sd = 1) {
ifelse(x < 0, 0, 1) * (pt_(q, df, mean, sd) - pt_(
0, df,
mean, sd
)) / (1 - pt_(0, df, mean, sd))
}
# }
Run the code above in your browser using DataLab