R/distributions.R

In jacobcvt12/twR: Tracy-Widom Distribution

#' @export
dtw <- function(x, beta=1, log=FALSE) {
    return(x)
}

#' @export
ptw <- function(q, beta=1, lower.tail=TRUE, log.p=FALSE) {
    return(q)
}

#' @export
qtw <- function(p, beta=1, lower.tail=TRUE, log.p=FALSE) {
    return(p)
}

#' @export
rtw <- function(n, beta=1) {
    return(rep(1, n))
}