作者clickhere (clickhere)
看板Statistics
标题Re: [问题] 如何看R的程式码
时间Tue Jan 6 01:28:48 2009
※ 引述《Tamih (.....)》之铭言:
: ※ 引述《KirinGuess (Kirin)》之铭言:
: : 请问在使用R时,怎样才能看到各种功能的程式码。
: : 我有找到到3种方法:
: : 1. 在功能名之前加「stat.」 ,例如:stat.anova
: 这个说法错误~!
: stat.anova 跟 anova 这两个函数是不同作用的~!
: 你可以看看他们的说明或者函数内所使用的引数...
: : 2. 在功能名之後加「.default」,例如:qqnorm.default
: 这是当函数有多个方法的时候,
: 函数设计者为不同方法所取的函数名字,
: 但不一定每个多方法的函数都有这 .default 的用法。
: 关於什麽是「方法」见我下面所述...
: : 3. 直接输入功能名 ,例如:cor
: 当直接输入函数能取得函数内容时,表示其函数只有一种方法。
: R 里面所谓的方法类似物件导向的观念,
: 函数会针对他所处理的物件型态,去找真正用的函数,
: 例如 plot 这函数,我们知道他可以画 x, y 的散布图,
: 其实他是使用了 plot.default 这支函数在画图,而 plot 还有很多不同方法,
: 可以使用 methods 这函数来查询该函数有哪些方法,
: 就像 plot 的话:
: > methods(plot)
: [1] plot.acf* plot.data.frame* plot.Date*
: [4] plot.decomposed.ts* plot.default plot.dendrogram*
: [7] plot.density plot.ecdf plot.factor*
: [10] plot.formula* plot.hclust* plot.histogram*
: [13] plot.HoltWinters* plot.isoreg* plot.lm
: [16] plot.medpolish* plot.mlm plot.POSIXct*
: [19] plot.POSIXlt* plot.ppr* plot.prcomp*
: [22] plot.princomp* plot.profile.nls* plot.spec
: [25] plot.spec.coherency plot.spec.phase plot.stepfun
: [28] plot.stl* plot.table* plot.ts
: [31] plot.tskernel* plot.TukeyHSD
: 就有上述 32 种方法,
: 譬如 plot.lm 就是当你 plot 这支函数里面放的是 lm 所建立出来的物件时,
: 所会用到的真实函数... 等等各种方法亦是如此,
: 只是使用 plot 这函数,可以省略後面,
: 他会直接针对物件型态寻找正确的真实函数来使用。
: 所以只要你利用 method 这函数找到真实的函数名字(後接 * 无法显示),
: 直接打他名字就能显示出他函数的程式原貌~!
: 如我有错,请各位纠正~!
下面只针对原文第三个问题回答如何找到 "cor.test" 的 code.
上面的 * 号均为 non-visible function, 在 R 中可能无法直接检视
(至少我不知道有何方法可行, 不代表没有, 有人知道的话请告诉我, 谢谢).
其中 cor.test() 即属於此类, 用 methods(cor.test) 即可得知.
原文中的回文说它被包在 dll 中亦非正解.
> cor.test
function (x, ...)
UseMethod("cor.test")
<environment: namespace:stats>
用 UseMethod() 的, 均有 R code, 然後才在其中使用外部呼叫, 也就是包在
.dll (MS) 或 .so (Linux) 档中. 事实上这些函式均使用 class, 所以大部
份 (非全部) 都有一个 .default 的内定函式.
那哪些是直接被使用外部呼叫的呢? 使用 .Internal 或 .Primitive 的函式才是.
如 runif(), sqrt() 这些都直接包在 R 的核心, 如 R.dll, Rmath.dll 中.
自己写的则直接用 dyn.load().
回到正文, cor.test() 被放在 stats 这个内定的 package 中, 所以可以在
source code 中找到, 下载原始码, 把它解压缩, 找到这个档
src\library\stats\R\cor.test.R
在里头就有详细的原始码了, 包含了整个 cor.test 家族.
另外,
src\library\stats
放着整个 stats package 的原始档, 相对应安装在 library\stats 下
src\library\stats\R
放着所有的 stats package 的 R code, 相对应安装在 library\stats\R 下.
src\library\stats\src
放的所有的 stats package 的 C/Fortran code 也就是外部呼叫的部份, 相对应
安装在 library\stats\libs 下.
至於上面 plot 的函式同理可行.
Reference:
Venables, W.N. and Ripley, B.D. (2000) "S Programming", Springer-Verlag
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 192.188.163.55
※ 编辑: clickhere 来自: 192.188.163.55 (01/06 01:30)
1F:推 KirinGuess:谢谢您的说明。 01/06 03:19