小编aL3*_*3xa的帖子

在Emacs-ESS中预览颜色

我不小心设法在Emacs中获得了颜色名称,#HEX和颜色预览.不要有一个血腥的想法,必须按下一些键绑定或菜单项...但是,现在我似乎无法找到那个功能的地方......我很确定我没有产生幻觉,所以它是必须在那里,在一些按键,我无法重现!=)

emacs r colors preview

3
推荐指数
1
解决办法
508
查看次数

非图形线性估计

在我以前的帖子,我一直在寻找关联性比率(η或η 2我被那没有人使用了线性的GLM程序检查η感到意外)例程R..

让我们从一个简单的例子开始:你如何检查双变量相关的线性?只有散点图?

有几种方法可以做到这一点,一种方法是比较线性和非线性模型R 2,然后应用F检验来寻找它们之间的显着差异.

最后,问题是:你如何检查线性,"非格式"方式?

r nonlinear-functions

3
推荐指数
1
解决办法
1138
查看次数

按行列出data.frame并按行在每个部分上应用函数

这似乎是一个典型的plyr问题,但我有一些不同的想法.这是我想要优化的功能(跳过for循环).

# dummy data
set.seed(1985)
lst <- list(a=1:10, b=11:15, c=16:20)
m <- matrix(round(runif(200, 1, 7)), 10)
m <- as.data.frame(m)


dfsub <- function(dt, lst, fun) {
    # check whether dt is `data.frame`
    stopifnot (is.data.frame(dt))
    # check if vectors in lst are "whole" / integer
    # vector elements should be column indexes
    is.wholenumber <- function(x, tol = .Machine$double.eps^0.5)  abs(x - round(x)) < tol
    # fall if any non-integers in list
    idx <- rapply(lst, is.wholenumber)
    stopifnot(idx)
    # check for …
Run Code Online (Sandbox Code Playgroud)

r list apply lapply dataframe

2
推荐指数
1
解决办法
5678
查看次数

Emacs - web浏览器中的help()输出

我开始使用Emacs(ESS)作为默认的R编辑器(是的,@ Dirk,正如你所说,我想要ESS),我必须承认它是目前为止我用过的最好的 R编辑器.但是,我无法将help()功能输出到网络浏览器.即使options(help_type = "html", browser = "firefox")已设置,它也会在单独的R缓冲区中显示帮助页面.

在使用Emacs/ESS时,如何获得有关浏览器的帮助?

browser emacs r ess

2
推荐指数
1
解决办法
1116
查看次数

RGoogleDocs身份验证失败

这是交易:我已经从OmegaHat存储库安装了RGoogleDocs软件包,并且在安装过程中一切正常,但是当我尝试加载特定文档(电子表格)时,它表明我是未经授权的!

我做了:

# installation
install.packages("RGoogleDocs", repos = "http://www.omegahat.org/R")
library(RGoogleDocs)
auth <- getGoogleAuth("username@gmail.com", "password")
con <- getGoogleDocsConnection(auth)
docs <- getDocs(con)
dtf <- getDocContent("documentname", con)
Error: Unauthorized
Run Code Online (Sandbox Code Playgroud)

这里有趣的是我可以列出所有文件(我有权这样做),但我没有被授权加载任何文件!O_o如果我输入names(docs)文件名称出现,但我无法得到他们的内容!这同样代表官方帮助页面上所述的"电子表格方法" :

sheets.con <- getGoogleDocsConnection(getGoogleAuth("username@gmail.com", "password", service = "wise"))
> a <- getDocs(sheets.con)
Error in getDocs(sheets.con) : 
  problems connecting to get the list of documents
Run Code Online (Sandbox Code Playgroud)

import r google-docs

2
推荐指数
1
解决办法
759
查看次数

从命名列表和函数名称创建可解析的字符串

我显然是一个简单的问题,我的灰质目前拒绝掌握 - 说我有一个清单:

list(a = "foo", b = c("bar", "biz", "booze"))
Run Code Online (Sandbox Code Playgroud)

和一个功能fn.我怎样才能得到这样的字符串:

"fn(a = \"foo\", b = c(\"bar\", \"biz\", \"booze\"))"
Run Code Online (Sandbox Code Playgroud)

PS

我知道我会很遗憾在早上问这个......

r

2
推荐指数
1
解决办法
233
查看次数

R 中的 Eta/Eta 平方例程

除了在应用 GLM 系列的某些技术之前使用的线性图形估计(注视散点图方法)之外,还有几种方法可以在算术上进行此估计(即没有图形)。

现在,我将关注 Fisher 的eta 平方- 相关比:在算术上,如果两个变量之间的关系是线性的,则它等于 Pearson r 的平方(决定系数:r 2)。因此,您可以比较etar 的值并评估关系类型(线性与否)。它提供有关由自变量解释(线性或非线性)的因变量的方差百分比的信息。因此,您可以在不满足线性假设时应用它。

简单地说:R 中是否有 eta/eta-squared 的例程?

r nonlinear-functions correlation

1
推荐指数
1
解决办法
4186
查看次数

替换for循环

我想找到一种方法来替换我正在使用的for循环.我的问题的快速版本是:我如何从矢量[a,b,c,d,e]转到[1,a,a*b,a*b*c,a*b*c*d]?我目前做的事情如下:

myvec <- c(.3,.5,.2,.3,.3)  
new_vec <- vector(length=length(myvec))  
new_vec[1] <- 1  
for (i in 2:length(myvec)) {  
    new_vec[i] <- myvec[i-1]*new_vec[i-1]  
}  
Run Code Online (Sandbox Code Playgroud)

但是,这非常慢.有任何想法吗?谢谢!

performance for-loop r vectorization

1
推荐指数
1
解决办法
247
查看次数