活躍記錄的平均值

我將如何找到六個月期間每天活動觀測值的平均值。數據如下所示：活躍記錄的平均值

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日期間的平均值。

關於如何把它關閉

來源

2012-05-08 cconnell

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)

來源

2012-05-08 14:10:35 Julius

當我試圖「平均數」任何見解，我得到：在平均錯誤（數據[X> =啓動＆X <=結束時，「輸出」]）：在爲函數'mean'選擇方法時評估參數'x'時出錯：數據錯誤[x> = start＆x <= end，「output」]： 'closure'類型的對象不可子集化 – cconnell

你的數據變量肯定有問題，data < - read.table（「1.txt」，header = T，quote =「\」「）是我如何加載的 – Julius

謝謝，我重新加載了數據， – cconnell

活躍記錄的平均值

回答

相關問題