te.pad {Kmisc} | R Documentation |
~~ A concise (1-5 lines) description of what the function does. ~~
te.pad(obj, id.pad = NULL)
obj |
~~Describe obj here~~ |
id.pad |
~~Describe id.pad 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, id.pad=NULL) { if (is.null(id.pad)) { idp <- seq(1, ncol(obj), 2) rat <- apply(obj[, idp], 2, function(x) x/sum(x)) ptot <- mean(colSums(obj[, idp])) obj <- data.frame(pp=rowMeans(rat)*ptot, obj) id.pad <- 1 } else { idp <- seq(1, ncol(obj[, -id.pad]), 2) ptot <- sum(obj[, id.pad]) } tes <- obj[, -id.pad][, idp+1]/obj[, -id.pad][, idp] ob.pad <- tes*obj[, id.pad] return(list(especificas=tes, obitos=ob.pad, bruta=colSums(ob.pad)/ptot)) }