How to make decisions in R [closed]

I'm trying to make the following decisions, for example, assume c is a vector,

c<-c(1,2,3,4)

if all the subvectors in c is larger than 3, make decision:

eff=1

How can I write this code?