Question

R language

Create the vectors:

(a) (1, 2, 3, . . . , 19, 20), which contains numbers increase by 1

(b) (20, 19, . . . , 2, 1), which contains numbers decrease by 1

(c) (4, 6, 3) and assign it to the name tmp. For part (d) and (e) look at the help for the function rep.

(d) (4, 6, 3, 4, 6, 3, . . . , 4, 6, 3) where there are 10 occurrences of pattern (4, 6, 3).

(e) (4, 4, . . . , 4, 6, 6, . . . , 6, 3, 3, . . . , 3) where there are 10 occurrences of 4, 20 occurrences of 6 and 30 occurrences of 3.

(f) create a vector of (1, 2, 3, . . . , 19, 20, 19, 18, . . . , 2, 1)

Answer 1

code;

# creating a vector x with values increasing by 1 from 1 to 20
x <- 1:20; x

# creating a vector y with values decreasing by 1 from 20 to 1
y <- 20:1; y

# creating a vector tmp with values 4, 6, 3
tmp <- c(4, 6, 3); tmp

# creating a vector tmp1 with repeating values of tmp, 10 times
tmp1 <- rep(tmp, 10); tmp1

# creating a vector tmp2 with repeating values of 4-> 10 times, 6-> 20 times and 3-> 30 times
tmp2 <- rep(tmp, c(10, 20, 30)); tmp2

# creating a vector z in which first the values increase from 1 to 20 then decrease from 20 to 1
z <- c(1:20, 19:1); z

o/p:

> # creating a vector x with values increasing by 1 from 1 to 20 > x <- 1:20; x [1] 1 2 3 4 5 6 7 8910 11 12 13 14 15 16 17 18 19 20 > # creating a vector y with values decreasing by 1 from 20 to 1 y <- 20:1; y [1] 20 19 18 17 16 15 14 13 12 11 10 9 87 6 5 43 2 1 > # creating a vector tmp with values 4, 6, 3 > tmp- c(4, 6, 3); tmp [1] 4 6 3

> # creating a vector tmp1 with repeating values of tmp, 10 times tmp1<- rep(tmp, 10); tmp1 [1] 4 6 346346346346 3463 4634 6346 3463 > # creating a vector tmp2 with repeating values of 4-> 10 times, 6-) 20 times and 3-> 30 times tmp2- rep (tmp, c(10, 20, 30)); tmp2 [1] 4 4 444444446666 66666666 66666666 3 33 3 3 3 [391 3 333 333 333 333 333 333 333

> # creating a vector z in which first the values increase from 1 to 20 then decrease from 20 to 1 > z く-c(1:20, 19:1); z [1] 1 2 3 456 7 8 910 11 12 13 14 15 16 17 18 19 20 19 18 17 16 15 [26] 14 13 12 11 10 9 876 5 4 3 2 1

O/p:

1 # creating a vector x with values increasing by 1 from 1 to 20 2 x <-1:20; x SRscript main.r [1] 1 2 3 4 567 8 9 10 11 12 13 14 15 16 17 18 19 20 [1] 20 19 18 17 16 15 14 13 12 11 10 9 876 5 4 3 2 1 [1] 4 6 3 [1] 4 6 3 46 346346 3 46 3 46346346 3463 46 3 [11 4 4 4 4 4 4 4 44466 66 6 666 6 666 666666663 3333333 [39] 3 3 3 3 3 3 3 3 3 3 3 3 3 33 3 3 3 3 33 3 [1 1 2 345678 9 10 11 12 13 14 15 16 17 18 19 20 19 18 17 16 15 [26] 14 13 12 11 1098 76 5 4 3 2 1 4 # creating a vector y with values dec reasing by 1 from 20 to 1 5 y <-20:1; y 6 8 3 3 3 5 5 35 5 5 5 7 # creating a vector tmp with values 4, 6, 3 8 tmp <- c(4, 6, 3) tmp # creating a vector tmpl with repeating values of tmp, 10 times 11 tmp1 <- rep (tmp, 1e): tmp1 12 13 creating a vector tmp2 with repeating values of 4-18 times, 6-> 28 times and 3- 30 times 14 tmp2 <- rep(tmp, c(10, 20, 30)): tmp2 15 16 # creating a vector z in which first the values increase from 1 to 20 then decrease from 20 to 1 17 z-c(1:20, 19:1): z

For help please comment.

Thank You.