Skip to main content

Browse the archive

https://github.com/cran/Hmisc
13 October 2021, 15:55:31 UTC
Revision 288a6220b956d91fff5bd3cdc5eb883d53ebe1bd authored by Charles Dupont on 10 January 2006, 13:38:31 UTC, committed by cran-robot on 10 January 2006, 13:38:31 UTC 
version 3.0-9
1 parent df80191
Raw File
Tip revision: 288a6220b956d91fff5bd3cdc5eb883d53ebe1bd authored by Charles Dupont on 10 January 2006, 13:38:31 UTC
version 3.0-9
Tip revision: 288a622
na.keep.s 
na.keep <- function(mf)
{
  w <- na.detail.response(mf)
  if(length(w))
    oldClass(w) <- 'keep'  ## 9Apr02
  
  attr(mf, "na.action") <- w
  mf
}


naprint.keep <- function(x, ...)
{
  if(length(x)) {
    cat("\nStatistics on Response by Missing/Non-Missing Status of Predictors\n\n")
    print(oldUnclass(x))
    cat("\n")
  }
  
  invisible()
}


naresid.keep <- function(omit, x, ...) x
back to top