Description Usage Arguments Details Value Note Author(s) References See Also Examples
~~ A concise (1-5 lines) description of what the function does. ~~
1 | qgausschaos(dP, vLambda, lArgsUniroot = list(interval = c(0, 100)), ...)
|
dP |
~~Describe |
vLambda |
~~Describe |
lArgsUniroot |
~~Describe |
... |
~~Describe |
~~ If necessary, more details than the description above ~~
~Describe the value returned If it is a LIST, use
comp1 |
Description of 'comp1' |
comp2 |
Description of 'comp2' |
...
~~further notes~~
~Make other sections like Warning with Warning .... ~
~~who you are~~
~put references to the literature/web site here ~
~~objects to See Also as help
, ~~~
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | ##---- 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 (dP, vLambda, lArgsUniroot = list(interval = c(0, 100)),
...)
{
if ((dP <= 0) | (dP >= 1))
return("wrong argument (should be in (0, 1))")
fnObj <- function(dC) {
lP <- pgausschaos(dC, vLambda)
if (lP$iFault != 0)
print("warning: error in computation of pgausschaos")
return(lP$dResult - dP)
}
lArgsUniroot <- c(f = fnObj, lArgsUniroot)
return(do.call("uniroot", lArgsUniroot))
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.