我正试图在我的webapp中嵌入一些键绑定,而我在使用Opera时遇到了困难.我有这个代码:
window.onkeydown = function(e){
var key = e.keyCode ? e.keyCode : e.charCode ? e.charCode : false;
if (e.ctrlKey && key === 84) {
alert("foo");
e.preventDefault();
// return false;
}
}
它就像Firefox和Chrome中的魅力一样,但Opera仍然会打开新标签.同样如此return false;.
我的信息: Opera/9.80 (X11; Linux i686; U; en) Presto/2.7.62 Version/11.00
我目前正在循环中调用带有多个参数rp.slider的tkrplot库,例如:
rp.slider(rpplot, param1)
rp.slider(rpplot, param2)
等等
理想情况下,我想在循环中执行此操作,例如
for(i in 1:10)
rp.slider(rpplot, foo(paste(param,i,sep="")))
当foo将编码字符串变量名称(符号？).rp.slider使用将参数转换为字符串deparse(substitute(var)).有没有foo让我这样做的功能？我试过as.symbol,as.name和parse(等等)都没有成功.
任何帮助将非常感激!
澄清一下,deparse(substitute(x))返回[1] "x"- 我想要一种从字符串返回相同输出的方法,即哪些foo输出[1] "x"用于输入deparse(substitute(foo("x")))？可能吗？
我是一个 R 新手，我被一个看似简单的问题所困扰，但却触及了关于如何以及何时在 R 中评估事物的非常深刻的问题。
我经常使用 Rserve；远程评估事物的典型语法重复输入有点麻烦：
RSeval(connection, quote(try(command)))
所以我想要一个函数 r 只用调用来做同样的事情：
r(command)
我的第一次天真的尝试注定会失败：
r <- function(command) {
RSeval(c, quote(try(command)))
}
您已经猜到了：这实际上是发送try(command)到我困惑的 Rserve 守护进程。我希望command得到部分评估，如果这有意义的话——即被我作为参数输入的内容替换，但不在本地评估它。
我寻找解决方案，浏览了引用、替代、评估、调用等的文档。但我找不到有效的东西。要么command在本地进行评估，要么根本不评估。
这不是一个大问题，我可以quote(try())一直输入整个该死的东西；但此时我最好奇的是如何让它发挥作用！
编辑：关于我想要做什么的更多解释。
command理想情况下是对函数的调用，即不是字符串。类似于a <- 3orassign("a", 3)而不是"a<-3"or 的东西quote(a<-3)。我相信这就是这件事变得棘手的部分原因。似乎很难告诉 R 不要在本地评估它，而只是按字面意思发送它。基本上我希望我的函数有点像quote()，它不评估它的参数。RSeval(c, quote(try())). 在这一点上，我认为这更像是对 R 微妙之处的有趣探究:-)几个月前我问过类似的东西,但是我使用JavaScript检查提供的字符串是否是"有效"的R对象名称.现在我想通过使用除了R之外的任何东西来实现同样的目标.我想有一个非常好的方法来做这个,有一些整洁的(不那么)深奥的R函数,所以正则表达式在我看来是最后一道防线.有任何想法吗？
哦,是的,使用背蜱和东西被认为是作弊.=)
我通常使用reshape包来聚合一些数据(呃),通常是plyr因为它的超级功能each.最近,我收到了一个建议,转而reshape2试用,现在我似乎each再也不能使用魔法了.
> m <- melt(mtcars, id.vars = c("am", "vs"), measure.vars = "hp")
> cast(m, am + vs ~ variable, each(min, max, mean, sd))
am vs hp_min hp_max hp_mean hp_sd
1 0 0 150 245 194.16667 33.35984
2 0 1 62 123 102.14286 20.93186
3 1 0 91 335 180.83333 98.81582
4 1 1 52 113 80.57143 24.14441
require(plyr)
> m <- melt(mtcars, id.vars = c("am", "vs"), measure.vars = …我一直在寻找有关美国命名趋势的一些数据.我成功地获得了2008年出生的婴儿的前1000名.这个数据在这个庄园中形成:
male.name n.male female.name n.female
Jacob 22272 Emma 18587
Michael 20298 Isabella 18377
Ethan 20004 Emily 17217
Joshua 18924 Madison 16853
Daniel 18717 Ava 16850
Alexander 18423 Olivia 16845
Anthony 18158 Sophia 15887
William 18149 Abigail 14901
Christopher 17783 Elizabeth 11815
Matthew 17337 Chloe 11699
我想得到data.frame2个变量:name和gender.这可以通过循环来完成,但我认为这是解决此问题的相当低效的方法.我认为某些reshape功能可满足我的需求.
让我们假设这个制表符分隔的数据被保存到一个data.frame命名中bnames.循环可以通过功能完成:
tmp <- character()
for (i in 1:nrow(bnames)) {
tmp <- c(tmp, rep(bnames[i,1], bnames[i,2]))
}
但我希望通过基于矢量的方法实现这一目标.有什么建议？
我不小心设法在Emacs中获得了颜色名称,#HEX和颜色预览.不要有一个血腥的想法,必须按下一些键绑定或菜单项...但是,现在我似乎无法找到那个功能的地方......我很确定我没有产生幻觉,所以它是必须在那里,在一些按键,我无法重现!=)
在我以前的帖子,我一直在寻找关联性比率(η或η 2我被那没有人使用了线性的GLM程序检查η感到意外)例程R..
让我们从一个简单的例子开始:你如何检查双变量相关的线性？只有散点图？
有几种方法可以做到这一点,一种方法是比较线性和非线性模型R 2,然后应用F检验来寻找它们之间的显着差异.
最后,问题是:你如何检查线性,"非格式"方式？
我很熟悉你可以直接从R创建tools包含和texi2dvi功能的LaTeX报告这一事实,但我很惊讶地看到tools包丢失了.它不在CRAN存储库中.有没有人知道适当的更换texi2dvi？