小编Los*_*Lin的帖子

如果我有一个矢量c(1,2,3)和另一个相同长度的矢量c(1,4,1).有没有办法找到列表对中每对数字的最小值？即具有返回的函数c(1,2,1)`我不想使用任何应用函数或循环,因为我的向量将非常大并且循环它们将花费很长时间.

所以我之前问了一个关于如何创建像这里所示的横幅的问题,我得到了一个非常好的答案让我开始.我一直在努力,因为我有很多问题让动画滑回原来的位置.
这是我的动画:http://jsfiddle.net/43nCF/(不要先点击绿色块)
问题:第一次切换块后,单击另一个块不会将其移动到左侧.
我还有其他一些小问题,如果有人帮我,我将不胜感激.

• 如何在我试图复制的横幅动画中同时获取块的宽度和移动动画？
• 如何让滑块滑回原来的位置,而不仅仅是那种"运输"？

我只是jQuery的初学者所以任何帮助都会很棒.谢谢.

我有这样的jQuery函数：

$（this）.animate（{width：100 +'px'}，300）;

如何使动画的播放速度减慢到最后？说大概500毫秒？

我试图在类声明中放置一个递归公式

class SomeNode:

    def __init__(self, a):
        leng = len(a)
        half= leng/2
        self.firstnode=a[0][0]
        self.child1=SomeNode([a[i]for k in range(leng)])
        self.child2=SomeNode([a[j] for j in range(leng)])


    def recursfunc(self):
        print self.firstnode
        recursfunc(self.child1)
        recursfunc(self.child2)

但是我一直收到错误消息NameError:未定义全局名称'recursfunc'

如果我创建一个包含如下内容的简单 .csv 文件：

01/22/2013,3.14159265358979323846264338

并继续在excel中打开它，单元格将显示一个四舍五入的数字，即3.141592654公式栏将显示整个值。但是，如果我进行一些更改并保存 csv 文件，或者只是将原始文件另存为不同的 csv 文件，该文件将只包含四舍五入的数字3.141592654，导致我失去一些小数点精度。

我正在通过 vba 宏写出这些文件。我试过了 ：

ActiveWindow.DisplayFormulas=True

在保存命令之前，它的工作原理只是将我的日期更改为数字格式，而且我还没有想出一种方法来将此格式仅应用于一系列单元格。有没有一些简单的方法可以保持我的数字精度？

说我有一个叫做的函数

myfun <- function(x,y) {median(x,y)} # obviously the actual function is 
                                     # something more complicated

现在让我们说在某种用途中,y参数是常数,(比如说c(1,2,3,4,5)).有什么办法可以将它传递给apply而不将它包装在另一个函数中吗？即
代替

apply(mydf, 2, function(x) myfun(x, c(1,2,3,4,5)))

传递类似的东西

apply(mydf, 2, myfun(,(c(1,2,3,4,5))))

这纯粹是装饰性的,我知道它对运行时间没有多大影响.我只是想知道这样的选项是否可行,因为每次将函数包装在函数中似乎效率低下

我如何使用grep()从矢量中获取NA？

即:当我尝试 grep(NA, c(1,NA))

我明白了 [1] NA NA

我有一个很长的单个字符向量,即somechars<-c("A","B","C","A"...)(长度在数百万的某个地方)

我能计算出这个向量中"A"和"B"的总出现次数的最快方法是什么？我已经尝试使用grep和lapply,但他们都需要很长时间来执行.

我目前的解决方案是:

tmp<-table(somechars)
sum(tmp["A"],tmp["B"])

但这还需要一段时间来计算.有没有更快的方法可以做到这一点？或者,我可以使用任何包,这已经更快了吗？我查看了stringr包,但他们使用了一个简单的grep.

这里有一个很好的解释,描述了如何通过选择最大变量来消除数据帧中的重复.
我还可以看到这如何应用于使用最小变量选择副本.
我现在的问题是如何显示所有重复的平均值？
例如:

z <- data.frame(id=c(1,1,2,2,3,4),var=c(2,4,1,3,5,2))
# id var
#  1   2
#  1   4
#  2   1
#  2   3
#  3   5
#  4   2

我想输出:

# id var
#  1   3     mean(2,4)
#  2   2     mean(1,3)
#  3   5
#  4   2

我目前的代码是:

averages<-do.call(rbind,lapply(split(z,z$id),function(chunk) mean(chunk$var)))
z<-z[order(z$id),]
z<-z[!duplicated(z$id),]
z$var<-averages

我的代码运行速度非常慢,比选择最大值的方法长大约10倍.如何优化此代码？

我有一个简单的数据集即(1.22 -0.86 -1.35 -1.46 0.67 2.77 -0.50 0.34 -0.57 -0.05).
我想将其定义为R中的数据集,因此我不必手动计算均值和方差,并可能对此进行绘制.我该怎么做呢？
我试过data<-[1.22 -0.86 -1.35 -1.46 0.67 2.77 -0.50 0.34 -0.57 -0.05]但是我得到了Error: unexpected numeric constant in "data<-1.22 -0.86 -1.35 -1.46 0.67"