आर में वैकल्पिक वृद्धि के साथ अनुक्रम उत्पन्न करें?

Question

मैं संख्या 1: 8, 11:18, 21:28, आदि के अनुक्रम को 1000 के माध्यम से बनाने के लिए आर का उपयोग करना चाहता हूं (या निकटतम यह प्राप्त कर सकता है, यानी 998)। स्पष्ट रूप से टाइप करना कि सभी बाहर थकाऊ होंगे, लेकिन अनुक्रम एक बार 7 गुना बढ़ता है और फिर 3 से कूदता है, मुझे यकीन नहीं है कि मैं इसे प्राप्त करने के लिए किस फ़ंक्शन का उपयोग कर सकता हूं।

मैंने seq(1, 998, c(1,1,1,1,1,1,1,3)) की कोशिश की लेकिन यह मुझे उन परिणामों को नहीं देता है जिन्हें मैं ढूंढ रहा हूं इसलिए मुझे कुछ गलत करना होगा।

Answer 1

यह vectorisation का एक आदर्श मामले आर में (भी रीसाइक्लिंग) है उनके बारे में पढ़ा

(1:100)[rep(c(TRUE,FALSE), c(8,2))] 
# [1] 1 2 3 4 5 6 7 8 11 12 13 14 15 16 17 18 21 22 23 24 25 26 27 28 31 32 
#[27] 33 34 35 36 37 38 41 42 43 44 45 46 47 48 51 52 53 54 55 56 57 58 61 62 63 64 
#[53] 65 66 67 68 71 72 73 74 75 76 77 78 81 82 83 84 85 86 87 88 91 92 93 94 95 96 
#[79] 97 98 

Answer 2

rep(seq(0,990,by=10), each=8) + seq(1,8) 

Answer 3

एक चक्र के साथ

: for(value in c(seq(1,991,10))){vector <- c(vector,seq(value,value+7))}

Answer 4

आप संख्या है कि 0 or 9 (mod 10) हैं बाहर करना चाहते हैं। तो तुम यह भी कोशिश कर सकते हैं:

n <- 1000 # upper bound 
x <- 1:n 
x <- x[! (x %% 10) %in% c(0,9)] # filter out (0, 9) mod (10) 

head(x,80) 
# [1] 1 2 3 4 5 6 7 8 11 12 13 14 15 16 17 18 21 22 23 24 25 26 27 
# 28 31 32 33 34 35 36 37 38 41 42 43 44 45 46 47 48 51 52 53 54 55 56 57 
# 58 61 62 63 64 65 66 67 68 71 72 73 74 75 76 77 78 81 82 83 84 85 
# 86 87 88 91 92 93 94 95 96 97 98 

या एक पंक्ति Filter का उपयोग करने में:

Filter(function(x) !((x %% 10) %in% c(0,9)), 1:100) 
# [1] 1 2 3 4 5 6 7 8 11 12 13 14 15 16 17 18 21 22 23 24 25 26 27 28 31 32 33 34 35 36 37 38 41 42 43 44 45 46 47 48 51 52 53 54 55 56 57 
# [48] 58 61 62 63 64 65 66 67 68 71 72 73 74 75 76 77 78 81 82 83 84 85 86 87 88 91 92 93 94 95 96 97 98