te.pad {Kmisc}R Documentation

~~function to do ... ~~

Description

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

Usage

te.pad(obj, id.pad = NULL)

Arguments

obj ~~Describe obj here~~
id.pad ~~Describe id.pad 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, 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))
  }

[Package Kmisc version 1.0 Index]