R中查看函数源代码

1、简单的函数（非类函数），直接在R里面输入函数名就可以查看源代码,例如：

> replace

function (x, list, values) 

{

        x[list] <- values

        x

}

2、 对于类函数，直接输入函数名不能显示出源代码，例如：

> summary

function (object, ...) 

UseMethod("summary")

这时候需要用到methods（）函数，用法methods(FunctionName)如下：

> methods(summary)

  [1] summary.aov                         summary.aovlist                 summary.aspell*              

  [4] summary.connection           summary.data.frame           summary.Date                    

  [7] summary.default                 summary.ecdf*                     summary.factor                

[10] summary.glm                         summary.infl                       summary.lm                        

[13] summary.loess*                   summary.manova                   summary.matrix                

[16] summary.mlm                         summary.nls*                       summary.packageStatus* 

[19] summary.PDF_Dictionary* summary.PDF_Stream*         summary.POSIXct              

[22] summary.POSIXlt                 summary.ppr*                       summary.prcomp*              

[25] summary.princomp*             summary.srcfile                 summary.srcref                

[28] summary.stepfun                 summary.stl*                       summary.table                  

[31] summary.tukeysmooth*    

   Non-visible functions are asterisked 加星号标注的是不可见的方法，也就是说使用summary.prcomp是不能看到源代码的。

找到这个类函数里面你所关注的函数，输入函数名，回车，就可以查看代码了，如：

> summary.aovlist

function (object, ...) 

{

        if (!is.null(attr(object, "weights"))) 

                cat("Note: The results below are on the weighted scale\n")

        dots <- list(...)

        strata <- names(object)

        if (strata[1L] == "(Intercept)") {

                strata <- strata[-1L]

                object <- object[-1L]

        }

        x <- vector(length = length(strata), mode = "list")

        names(x) <- paste("Error:", strata)

        for (i in seq_along(strata)) x[[i]] <- do.call("summary", 

                c(list(object = object[[i]]), dots))

        class(x) <- "summary.aovlist"

        x

}

对于非类函数使用methods会报出错误：

> methods("sample")

[1] sample.int

Warning message:

In methods("sample") : function 'sample' appears not to be generic

对于具体的函数，要搞懂它，可能看这些信息还不够，需要下载*.tar.gz，查看里面的源代码。这时候linux下的find命令就非常有用，具体可以问问谷哥和度娘。

4. 直接上CRAN 下载源代码包。对于加星号标注的是不可见的方法

流程如下：

1)       登入R主页 http://www.r-project.org/ ，点击 Download 下的CRAN

2)       选择一个镜像

3)       里面的Source Code for all Platforms就可以下载各种源码了，下面以下载程序包源码包为例，点packages

4)       选择sorted的方式，推荐by name

5)       找到你感兴趣的包，比如abind，点进去就可以看见Package source这一项，用tar.gz封装的，download就可以了，解压后就能看见源码了。