pquadform: function to do ...
In quaddisc: Quadratic discrepancies

Description Usage Arguments Details Value Note Author(s) References See Also Examples

~~ A concise (1-5 lines) description of what the function does. ~~

1	pquadform(dC, vLambda, vNoncent, vDf, dSigma, ...)

`dC`	~~Describe `dC` here~~
`vLambda`	~~Describe `vLambda` here~~
`vNoncent`	~~Describe `vNoncent` here~~
`vDf`	~~Describe `vDf` here~~
`dSigma`	~~Describe `dSigma` here~~
`...`	~~Describe `...` here~~

~~ 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, ~~~

##---- 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 (dC, vLambda, vNoncent, vDf, dSigma, ...) 
{
    iTermsSum <- length(vLambda)
    if (length(vNoncent) != iTermsSum) 
        return("Error: wrong number of noncentrality coefficients vNoncent")
    if (length(vDf) != iTermsSum) 
        return("Error: wrong number of degrees-of-freedom coefficients vDf")
    lResult <- qfR(vLambda, vNoncent, vDf, iTermsSum, dSigma, 
        dC, ...)
    class(lResult) <- "quadform"
    return(lResult)
  }