http://a-lucky-bird.spaces.live.com/blog/cns!9FE71C3A1FA0267F!774.entry上面基本很全了,就差14楼的高亮了,要是博主同意的话,稍加补充就可以了。
另外,这个博客上精彩文章可不少啊。估计博主也有COS的ID吧,不妨冒个泡,顺便为我们的主站做做贡献。
另外,这个博客上精彩文章可不少啊。估计博主也有COS的ID吧,不妨冒个泡,顺便为我们的主站做做贡献。
<br />
findfuns <- function(x) {<br />
if(require(x, character.only=TRUE)) {<br />
env <- paste("package", x, sep=":")<br />
nm <- ls(env, all=TRUE)<br />
nm[unlist(lapply(nm, function(n) exists(n, where=env,<br />
mode="function",<br />
inherits=FALSE)))]<br />
} else character(0)<br />
}<br />
<br />
z <- lapply(.packages(all.available = FALSE), findfuns)<br />
z=unique(sort(unlist(z)))<br />
cat(z,file='out.txt',sep=',')<br />