Verilerimin ardışık günler için eşiğe nerede ulaştığını bulmam gerekiyor. Eşiğin üstünde 4 ardışık gözlem arıyorum. Bu kriterleri karşılayan serilerin ilk gözleminin yerini döndürmek istiyorum. Eşiğin üstündeki ardışık değerler için konum ve değer
eg = structure(list(t.date = structure(c(1L, 2L, 11L, 12L, 13L, 14L,
15L, 16L, 17L, 18L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L), .Label = c("4/30/11",
"5/1/11", "5/10/11", "5/11/11", "5/12/11", "5/13/11", "5/14/11",
"5/15/11", "5/16/11", "5/17/11", "5/2/11", "5/3/11", "5/4/11",
"5/5/11", "5/6/11", "5/7/11", "5/8/11", "5/9/11"), class = "factor"),
t.avg = c(4L, 4L, 5L, 6L, 10L, 18L, 18L, 18L, 18L, 12L, 10L,
10L, 8L, 8L, 9L, 10L, 6L, 5L)), .Names = c("date", "avg"
), row.names = c(NA, -18L), class = "data.frame")
Ben ort (4 gün boyunca ort> 17) kriterlerini karşılayan tarihi Bir yaklaşım istiyorum: Burada
bir örnek veri kümesi bu durumda
eg$date %in% eg$date[which(eg$avg > 17)]
# [1] FALSE FALSE FALSE FALSE FALSE TRUE TRUE TRUE TRUE FALSE FALSE FALSE
# [13] FALSE FALSE FALSE FALSE FALSE FALSE
Ben TRUE
'un ilk örneğini yanıt olarak alabilir, ancak ikinci, üçüncü veya dördüncü ise TRUE
eg$date[which(eg$avg > 17)]
# [1] 5/5/11 5/6/11 5/7/11 5/8/11
Ve serinin ilk gözlem yeri: Ben soru ile ilgili ama eğmek edemedik bulduk
which(eg$avg > 17)
# [1] 6 7 8 9
koşul TRUE
olduğu 10 İlk tarihine gerek ihtiyaçlarımın yöntemleri.
Çok teşekkürler. Ayrıca
gerektiğini Böyle bir işlev varsa, 'rollmin' olun. ya da belki de rollapply (..., min, 4) –
İyi yakalama! Alan adı "avg" ile kafam karıştı ve sadece onunla devam etti. Yorumunuzu yansıtacak şekilde düzenledim. – Jordan
'rollmax' şu şekilde var: 'hangi (-rollmax (-eg $ avg, 4)> 17) [1]' –