Displaying 1 result from an estimated 1 matches for "hasomit".
Did you mean:
hashmi
2000 Aug 23
0
2 Bugs in na.omit.default() (PR#641)
...uot;
# suggested fix, experts PLEASE CROSS CHECK
na.omit.default <-
function (object)
{
if (!is.atomic(object))
return(object)
d <- dim(object)
if (length(d) > 2)
return(object)
if (length(d)) {
omit <- seq(along = object)[is.na(object)]
hasomit <- length(omit)>0
if (hasomit){
omit <- unique(((omit - 1)%%d[1]) + 1)
nm <- rownames(object)
object <- object[-omit, , drop = FALSE]
}
}
else {
omit <- seq(along = object)[is.na(object)]
hasomit <- length(om...