ext.res {Kmisc}R Documentation

~~function to do ... ~~

Description

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

Usage

ext.res(obj)

Arguments

obj ~~Describe obj here~~

Details

~~ If necessary, more details than the description above ~~

Value

~Describe the value returned If it is a LIST, use

comp1 Description of 'comp1'
comp2 Description of 'comp2'

...

Warning

....

Note

~~further notes~~

~Make other sections like Warning with section{Warning }{....} ~

Author(s)

~~who you are~~

References

~put references to the literature/web site here ~

See Also

~~objects to See Also as help, ~~~

Examples

##---- 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(obj) {
  sm <- summary(obj)
  av <- drop1(obj, test="Ch")
  if (any(class(obj)=="polr"))
    res <- cbind(c(av$LRT[-1], rep(NA, length(obj$zeta))),
           100*c(av$Pr[-1], rep(NA, length(obj$zeta))), 
        sm$coeff[, 1], sm$coef[,2],
        exp(sm$coef[, 1:2]), sm$coef[,3], 
        pnorm(abs(sm$coeff[,3]), lower=FALSE)*200)  
  else
    res <- cbind(av$LRT, 100*av$Pr, 
      sm$coeff[, 1], sm$coeff[, 2], 
      exp(sm$coef[, 1:2]), sm$coef[,3], 
      pnorm(abs(sm$coeff[,3]), lower=FALSE)*200)
  
  colnames(res) <- c("RazaoVeross", "signif", 
    "Coeficiente", "Erro-padrão", "Odds-Ratio", 
    "Erro-Padrão", "estatística t", "valor-p")
  res
  }

[Package Kmisc version 1.0 Index]