Type 'na.omit' and see where it leads. In this case you see it is an object class and there are several methods, all of which are not visible, so you use 'getAnywhere' to see them:
> na.omit function (object, ...) UseMethod("na.omit") <environment: namespace:stats> > methods(na.omit) [1] na.omit.data.frame* na.omit.default* na.omit.ts* Non-visible functions are asterisked > getAnywhere('na.omit.default') A single object matching 'na.omit.default' was found It was found in the following places registered S3 method for na.omit from namespace stats namespace:stats with value function (object, ...) { if (!is.atomic(object)) return(object) d <- dim(object) if (length(d) > 2) return(object) omit <- seq_along(object)[is.na(object)] if (length(omit) == 0) return(object) if (length(d)) { omit <- unique(((omit - 1)%%d[1]) + 1L) nm <- rownames(object) object <- object[-omit, , drop = FALSE] } else { nm <- names(object) object <- object[-omit] } if (any(omit > 0L)) { names(omit) <- nm[omit] attr(omit, "class") <- "omit" attr(object, "na.action") <- omit } object } <environment: namespace:stats> > On Mon, Oct 27, 2008 at 10:43 AM, useR <[EMAIL PROTECTED]> wrote: > Hi R helpers, > > I'd like to see source code for some of built-in R functions... for > example, I would like too see how "na.omit" was implemented? > > > Thanks? > > ______________________________________________ > R-help@r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. > -- Jim Holtman Cincinnati, OH +1 513 646 9390 What is the problem that you are trying to solve? ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.