How to create a large vector with repetitive elements of varying size in R?

To create a large vector of repetitive elements of varying size we can use the rep function along with the logical vector as an index. The logical vector that contains TRUE or FALSE will define the selection or omission of the values in the vector created with the help of rep function as shown in the below examples. If the vector created by using rep is larger than the logical vector then the logical vector will be recycled.

Example1

x1<−rep(1:100,each=2)[c(TRUE,FALSE)]
x1

Example

x1<−rep(1:100,each=2)[c(TRUE,TRUE)]
x1

Output

[1] 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9
[19] 10 10 11 11 12 12 13 13 14 14 15 15 16 16 17 17 18 18
[37] 19 19 20 20 21 21 22 22 23 23 24 24 25 25 26 26 27 27
[55] 28 28 29 29 30 30 31 31 32 32 33 33 34 34 35 35 36 36
[73] 37 37 38 38 39 39 40 40 41 41 42 42 43 43 44 44 45 45
[91] 46 46 47 47 48 48 49 49 50 50 51 51 52 52 53 53 54 54
[109] 55 55 56 56 57 57 58 58 59 59 60 60 61 61 62 62 63 63
[127] 64 64 65 65 66 66 67 67 68 68 69 69 70 70 71 71 72 72
[145] 73 73 74 74 75 75 76 76 77 77 78 78 79 79 80 80 81 81
[163] 82 82 83 83 84 84 85 85 86 86 87 87 88 88 89 89 90 90
[181] 91 91 92 92 93 93 94 94 95 95 96 96 97 97 98 98 99 99
[199] 100 100

Example

x1<−rep(1:100,each=2)[c(TRUE,TRUE,FALSE)]
x1

Output

[1] 1 1 2 3 4 4 5 6 7 7 8 9 10 10 11 12 13 13
[19] 14 15 16 16 17 18 19 19 20 21 22 22 23 24 25 25 26 27
[37] 28 28 29 30 31 31 32 33 34 34 35 36 37 37 38 39 40 40
[55] 41 42 43 43 44 45 46 46 47 48 49 49 50 51 52 52 53 54
[73] 55 55 56 57 58 58 59 60 61 61 62 63 64 64 65 66 67 67
[91] 68 69 70 70 71 72 73 73 74 75 76 76 77 78 79 79 80 81
[109] 82 82 83 84 85 85 86 87 88 88 89 90 91 91 92 93 94 94
[127] 95 96 97 97 98 99 100 100

Example2

x2<−rep(0:1,each=100)[c(TRUE,TRUE,FALSE,TRUE,FALSE)]
x2

Output

[1] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
[38] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1
[75] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
[112] 1 1 1 1 1 1 1 1 1

Example3

x4<−rep(1:100,each=5)[c(TRUE,FALSE,TRUE)]
x4

Output

[1] 1 1 1 2 2 2 2 3 3 3 4 4 4 5 5 5 5 6
[19] 6 6 7 7 7 8 8 8 8 9 9 9 10 10 10 11 11 11
[37] 11 12 12 12 13 13 13 14 14 14 14 15 15 15 16 16 16 17
[55] 17 17 17 18 18 18 19 19 19 20 20 20 20 21 21 21 22 22
[73] 22 23 23 23 23 24 24 24 25 25 25 26 26 26 26 27 27 27
[91] 28 28 28 29 29 29 29 30 30 30 31 31 31 32 32 32 32 33
[109] 33 33 34 34 34 35 35 35 35 36 36 36 37 37 37 38 38 38
[127] 38 39 39 39 40 40 40 41 41 41 41 42 42 42 43 43 43 44
[145] 44 44 44 45 45 45 46 46 46 47 47 47 47 48 48 48 49 49
[163] 49 50 50 50 50 51 51 51 52 52 52 53 53 53 53 54 54 54
[181] 55 55 55 56 56 56 56 57 57 57 58 58 58 59 59 59 59 60
[199] 60 60 61 61 61 62 62 62 62 63 63 63 64 64 64 65 65 65
[217] 65 66 66 66 67 67 67 68 68 68 68 69 69 69 70 70 70 71
[235] 71 71 71 72 72 72 73 73 73 74 74 74 74 75 75 75 76 76
[253] 76 77 77 77 77 78 78 78 79 79 79 80 80 80 80 81 81 81
[271] 82 82 82 83 83 83 83 84 84 84 85 85 85 86 86 86 86 87
[289] 87 87 88 88 88 89 89 89 89 90 90 90 91 91 91 92 92 92
[307] 92 93 93 93 94 94 94 95 95 95 95 96 96 96 97 97 97 98
[325] 98 98 98 99 99 99 100 100 100