Description Usage Arguments Details Value Note Author(s) References See Also Examples
internal use only
1 |
x |
|
y |
|
z |
|
model |
|
mar1 |
|
mar2 |
|
mar3 |
|
dep |
|
A1 |
|
A2 |
|
B1 |
|
B2 |
|
checkconv |
|
... |
internal use only
internal use only
internal use only
P. Rakonczai
internal use only
internal use only
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
}
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.