का उपयोग lapply यदि एक सूची

Question

मान लीजिए में प्रत्येक तत्व का परीक्षण करने के साथ मैं एक सूची है:

alist<- list(4,6,8,9) 

मैं परीक्षण करना चाहते हैं प्रत्येक सूची तत्व 7 से अधिक है और अगर यह सच है और 0 यदि 1 की एक सूची प्रदान असत्य।

हालांकि मुझे लापरवाही का उपयोग करना चाहिए।

lapply(alist,if,>7,1) or lapply(alist,if,cond>7,1) 

बेशक इनमें से कोई भी काम नहीं है और मुझे निम्न त्रुटि मिल रही है।

Error: unexpected ',' in "lapply(alist, if," 

Answer 1

मुझे इसका जवाब देने में दर्द होता है क्योंकि यह ऐसा करने के लिए बहुत ही अन आर है। आप और अधिक स्पष्ट किया जा रहा कोशिश करते हैं और के रूप में कोष्ठक इस्तेमाल कर सकते हैं:

lapply(alist, function(x) if (x > 7) {1} else {0}) 

या vectorized ifelse

lapply(alist, function(x) ifelse(x > 7, 1, 0)) 

या सभी का सबसे अच्छा:

as.numeric(alist > 7) 

Answer 2

एक और दो:

lapply(alist > 7, as.integer) 

या

lapply(alist > 7, ifelse, 1, 0)