[R] subest a data set on two conditions

[arun]

Hi,
Try:
#Eitherindx <- which(df$pvalue <0.05)
 indx1 <- sort(c(indx,ifelse(!indx%%2,indx-1,indx+1)))
df[indx1,]

#or
 df[!!with(df,ave(pvalue,((seq-1)%/%2)+1,FUN= function(x) any(x <0.05))),]
A.K.


How can I subset the example data set based on pvalue ( <0.05) and also include the set of each pairs? 
I could subset with this code a<-subset(df, pvalue <0.05) whcih would give me this output 

    Estimate      pvalue seq pairs 
10 0.01133065 0.004946311  10     2 
12 0.02026090 0.039022875  12     2 
17 0.01621716 0.022891429  17     1 
19 0.01555321 0.033382339  19     1 

But I also want to include seq 9, 11, 18 and 20 which are sets of the variable pairs in the output 




> dput(df) 
structure(list(Estimate = c(0.00485470080131958, 0.0017750187497085, 
0.00335445588953967, -0.000584531421758813, 0.00606953408663915, 
-0.00528701750277387, 0.00566389678093939, -0.0157431826077494, 
0.00797445327627353, 0.0113306462560471, 0.00458009238873928, 
0.0202609029566437, 0.000973530938029486, -0.00183247733386492, 
0.00115028173291761, -0.00743448971374577, 0.016217161692567, 
-0.000945376803907414, 0.0155532095509903, -0.00617109741106529 
), pvalue = c(0.171288761250697, 0.507252376337703, 0.328418897915535, 
0.924674871720598, 0.254431502614107, 0.212506044108723, 0.274117055540994, 
0.0963539806017105, 0.156704628343227, 0.00494631086965616, 0.401874172161139, 
0.0390228749596093, 0.817093606803661, 0.581289013427265, 0.776977123239984, 
0.318257277798551, 0.0228914288352906, 0.86659585959993, 0.0333823392712699, 
0.639843703507484), seq = 1:20, pairs = c(1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L)), 
datalabel = "", time.stamp = " 8 Dec 2013 12:55", .Names = c("Estimate", 
"pvalue", "seq", "pairs"), formats = c("%9.0g", "%9.0g", "%9.0g", 
"%9.0g"), types = c(255L, 255L, 253L, 253L), val.labels = c("", 
"", "", ""), var.labels = c("Estimate", "pvalue", "seq", "pairs" 
), row.names = c("1", "2", "3", "4", "5", "6", "7", "8", "9", 
"10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20" 
), version = 12L, class = "data.frame")