活动记录的平均值答案

【问题标题】：Averages of active records活动记录的平均值
【发布时间】：2012-05-08 01:54:00
【问题描述】：

我如何找到六个月期间每一天的活跃观察的平均值。数据如下所示：

output  start       end
12000   04/01/2012  04/01/2012
2175    11/25/2011  01/22/2012
1800    12/06/2011  01/23/2012
1795    03/23/2012  03/23/2012
1550    04/03/2012  04/20/2012
3400    10/13/2011  01/24/2012
1850    02/27/2012  03/08/2012
2500    11/08/2011  01/24/2012
5350    02/02/2012  04/01/2012
2550    02/09/2012  04/09/2012
8000    11/01/2011  01/22/2012
2725    12/02/2011  01/22/2012
6249    01/12/2012  01/24/2012
1875    01/22/2012  02/28/2012
2550    01/18/2012  01/24/2012
2650    01/28/2012  01/29/2012
2100    11/25/2011  02/21/2012
6900    01/17/2012  02/17/2012
1779    04/21/2012  04/21/2012
4900    11/09/2011  01/22/2012
3250    12/09/2011  01/24/2012
2995    03/14/2012  04/18/2012

因此，对于六个月内的每一天，我想找到当天所有活跃观察的平均值。例如，上面的第二个观测值将与所有其他活动观测值一起包含在 2011 年 11 月 25 日和 2012 年 1 月 22 日之间的日期中。

关于如何实现它的任何见解

【问题讨论】：

标签： r time-series

【解决方案1】：

start <- as.Date(data$start, "%m/%d/%Y")
end <- as.Date(data$end, "%m/%d/%Y")
period <- as.Date(min(start):max(end), origin = "1970-01-01")
averages <- sapply(period, function(x) mean(data[x >= start & x <= end, 'output']))
data.frame(period, averages)

【讨论】：

当我尝试“平均值”时，我得到：平均值错误（数据 [x >= 开始 & x = start & x
你的data变量肯定有问题，data