Description Usage Arguments Details Value Note Author(s) References See Also Examples
internal use only
1 |
x |
|
y |
|
model |
|
mar1 |
|
mar2 |
|
dep |
|
a |
|
b |
|
asy |
|
p |
|
... |
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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 | ##---- 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, model = "log", mar1 = c(0, 1, 0.1), mar2 = c(0,
1, 0.1), dep = 2, a = 1/2, b = 1/2, asy = 0, p = 3, ...)
{
pbgpd = NULL
models = c("log", "psilog", "philog", "neglog", "psineglog",
"phineglog", "bilog", "negbilog", "ct", "taj")
if (!(model %in% models))
stop(paste("'", model, "' is an unknown model.", sep = ""))
else {
if (model == "log")
pbgpd = pbgpd_log(x, y, mar1 = mar1, mar2 = mar2,
dep = dep)
if (model == "psilog")
pbgpd = pbgpd_psilog(x, y, mar1 = mar1, mar2 = mar2,
dep = dep, asy = asy, p = p)
if (model == "philog")
pbgpd = pbgpd_philog(x, y, mar1 = mar1, mar2 = mar2,
dep = dep, asy = asy, p = p)
if (model == "neglog")
pbgpd = pbgpd_neglog(x, y, mar1 = mar1, mar2 = mar2,
dep = dep)
if (model == "psineglog")
pbgpd = pbgpd_psineglog(x, y, mar1 = mar1, mar2 = mar2,
dep = dep, asy = asy, p = p)
if (model == "phineglog")
pbgpd = pbgpd_phineglog(x, y, mar1 = mar1, mar2 = mar2,
dep = dep, asy = asy, p = p)
if (model == "bilog")
pbgpd = pbgpd_bilog(x, y, mar1 = mar1, mar2 = mar2,
dep = dep, a = a, b = b)
if (model == "negbilog")
pbgpd = pbgpd_negbilog(x, y, mar1 = mar1, mar2 = mar2,
dep = dep, a = a, b = b)
if (model == "ct")
pbgpd = pbgpd_ct(x, y, mar1 = mar1, mar2 = mar2,
a = a, b = b)
if (model == "taj")
pbgpd = pbgpd_taj(x, y, mar1 = mar1, mar2 = mar2,
a = a, b = b)
}
pbgpd
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.