Hi,

Just two variant's of David's solution:
 idx<-apply(mydata[-1],2,function(x) any(!x %in% c(0,5)))
idx
   x1    x2    x3    x4 
 TRUE FALSE FALSE FALSE 
 idx<-c(TRUE,idx)
 mydata[,idx]
#second
idx<-apply(mydata[-1],2,function(x) all(ifelse(x!=0 & x!=5,TRUE,FALSE )))
 mydata[,c(TRUE,idx)]
  n x1
1 5  2
2 5  3
3 5  1
4 5  3
A.K.




______________________________________
If you reply to this email, your message will be added to the discussion below:
http://r.789695.n4.nabble.com/sub-setting-a-data-frame-with-binomial-responses-tp4638702p4638833.html
This email was sent by arun kirshna (via Nabble)
To receive all replies by email, subscribe to this discussion: http://r.789695.n4.nabble.com/template/NamlServlet.jtp?macro=subscribe_by_code&node=4638702&code=ci1oZWxwQHItcHJvamVjdC5vcmd8NDYzODcwMnwtNzg0MjM1NTA4
	[[alternative HTML version deleted]]

