internal

Share:

Description

internal use only

Usage

1
ptgpd(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
...

Details

internal use only

Value

internal use only

Note

internal use only

Author(s)

P. Rakonczai

References

internal use only

See Also

internal use only

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
##---- 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") 
            ptgpd = ptgpd_log(x, y, z, mar1 = mar1, mar2 = mar2, 
                mar3 = mar3, dep = dep)
        if (model == "psilog") 
            ptgpd = ptgpd_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") 
            ptgpd = ptgpd_neglog(x, y, z, mar1 = mar1, mar2 = mar2, 
                mar3 = mar3, dep = dep)
        if (model == "psineglog") 
            ptgpd = ptgpd_psineglog(x, y, z, mar1 = mar1, mar2 = mar2, 
                mar3 = mar3, dep = dep, A1 = A1, A2 = A2, B1 = B1, 
                B2 = B2, checkconv = checkconv)
        ptgpd
    }
  }

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.