function (x, na.rm = TRUE)
{
xna <- is.na(x)
if (na.rm)
x <- x[!xna]
else if (any(xna))
return(rep.int(NA, 5))
x <- sort(x)
n <- length(x)
if (n == 0)
rep.int(NA, 5)
else {
n4 <- floor((n + 3)/2)/2
d <- c(1, n4, (n + 1)/2, n + 1 - n4, n)
0.5 * (x[floor(d)] + x[ceiling(d)])
}
}
如果是程序包中自己带的函数,可用以下操作:
https://cran.r-project.org/
点击左侧Packages
点击中间Table of available packages, sorted by date of publication链接,进入包的列表界面
ctrl+F组合键在网页中搜索你关心的R包,例如包WGCNA,点击进入此R包主界面
点击Downloads下面的Package source:
WGCNA_1.51.tar.gz
解压此包,然后找到里面名字为R的文件夹,里面都是R语言包中包含的R的函数的代码
如果是在bioconductor中的包,可以在bioconductor官网中搜索此R包,进入此包界面,下载.tar.gz的这个文件,寻找方法如上.
dll文件是编译好的,不再存在源代码了。不过R语言是开源的,如果要阅读源代码,要专门去下载R语言的源代码。比如
http://cran.cnr.berkeley.edu/src/base/R-3/R-3.3.2.tar.gz