https://github.com/cran/Hmisc
Tip revision: 7b9059f237a2daa7423c8b34bbe06e1659ee90a3 authored by Frank E Harrell Jr on 18 December 2015, 10:45:25 UTC
version 3.17-1
version 3.17-1
Tip revision: 7b9059f
na.keep.s
na.keep <- function(mf)
{
w <- na.detail.response(mf)
if(length(w))
class(w) <- 'keep'
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(unclass(x))
cat("\n")
}
invisible()
}
naresid.keep <- function(omit, x, ...) x