mgpd (version 1.99)

dtgpd: internal

Description

internal use only

Usage

dtgpd(x, y, z, model = "log", mar1 = c(0, 1, 0.1), mar2 = c(0, 1, 0.1), mar3 = c(0, 1, 0.1), dep = 1.5, A1 = 0, A2 = 0, B1 = 3, B2 = 3, checkconv = TRUE, ...)

Arguments

x

y

z

model

mar1

mar2

mar3

dep

A1

A2

B1

B2

checkconv

...

Value

• internal use only

Details

internal use only

References

internal use only

See Also

internal use only

Examples

##---- 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 (x, y, z, model = "log", mar1 = c(0, 1, 0.1), mar2 = c(0, 
    1, 0.1), mar3 = c(0, 1, 0.1), dep = 1.5, A1 = 0, A2 = 0, 
    B1 = 3, B2 = 3, checkconv = TRUE, ...) 
{
    models = c("log", "psilog", "neglog", "psineglog")
    if (!(model %in% models)) 
        stop(paste("'", model, "' is not a valid model.", sep = ""))
    else {
        if (model == "log") 
            dtgpd = dtgpd_log(x, y, z, mar1 = mar1, mar2 = mar2, 
                mar3 = mar3, dep = dep)
        if (model == "psilog") 
            dtgpd = dtgpd_psilog(x, y, z, mar1 = mar1, mar2 = mar2, 
                mar3 = mar3, dep = dep, A1 = A1, A2 = A2, B1 = B1, 
                B2 = B2, checkconv = checkconv)
        if (model == "neglog") 
            dtgpd = dtgpd_neglog(x, y, z, mar1 = mar1, mar2 = mar2, 
                mar3 = mar3, dep = dep)
        if (model == "psineglog") 
            dtgpd = dtgpd_psineglog(x, y, z, mar1 = mar1, mar2 = mar2, 
                mar3 = mar3, dep = dep, A1 = A1, A2 = A2, B1 = B1, 
                B2 = B2, checkconv = checkconv)
        dtgpd
    }
  }