ext.res {Kmisc} | R Documentation |
~~ A concise (1-5 lines) description of what the function does. ~~
ext.res(obj)
obj |
~~Describe obj 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 section{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(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 }