查看R源代码的六种方法

为什么80%的码农都做不了架构师？>>>   

> methods(length)
[1] length.pdf_doc* length.POSIXlt 
see '?methods' for accessing help and source code
> length.POSIXlt
function (x) 
length(x[[1L]])
<bytecode: 0x00000000111d75b0>
<environment: namespace:base>
 

-------------------------------------------------------------------------

 

 

方法一：直接写函数名称，如在R中查看回归分析代码：

1. lm

复制代码

直接可以查看到

1. function (formula, data, subset, weights, na.action, method = "qr", 
2.     model = TRUE, x = FALSE, y = FALSE, qr = TRUE, singular.ok = TRUE, 
3.     contrasts = NULL, offset, ...) 
4. {
5.     ret.x <- x
6.     ret.y <- y
7.     cl <- match.call()
8.     mf <- match.call(expand.dots = FALSE)
9.     m <- match(c("formula", "data", "subset", "weights", "na.action", 
10.         "offset"), names(mf), 0L)
11.     mf <- mf[c(1L, m)]
12.     mf$drop.unused.levels <- TRUE
13.     mf[[1L]] <- quote(stats::model.frame)
14.     mf <- eval(mf, parent.frame())
15.     if (method == "model.frame") 
16.         return(mf)
17.     else if (method != "qr") 
18.         warning(gettextf("method = '%s' is not supported. Using 'qr'", 
19.             method), domain = NA)
20.     mt <- attr(mf, "terms")
21.     y <- model.response(mf, "numeric")
22.     w <- as.vector(model.weights(mf))
23.     if (!is.null(w) && !is.numeric(w)) 
24.