#assign variables
x <- 1.1
a <- 2.2
b <- 3.3
z <- c(x, a, b)
print(z)
## [1] 1.1 2.2 3.3
#a
z <- x^a^b
#b
z <- (x^a)^b
#c
z <- 3*x^3+2*x^2+1
print(z)
## [1] 7.413
#a
q <- c(seq(from = 1, to = 8), seq(from = 7, to = 1))
print(q)
## [1] 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1
#b
w <- c(1, rep(2, 2), rep(3, 3), rep(4, 4), rep(5, 5))
print(w)
## [1] 1 2 2 3 3 3 4 4 4 4 5 5 5 5 5
#c
e <- c(5, rep(4, 2), rep(3, 3), rep(2, 4), rep(1, 5))
print(e)
## [1] 5 4 4 3 3 3 2 2 2 2 1 1 1 1 1
r <- runif(1, 1, 10)
t <- runif(1, 10, 20)
y <- c(asin(r/t), acos(r/t))
print(y)
## [1] 0.1271748 1.4436215
queue <- c('sheep', 'fox', 'owl', 'ant')
#a
queue <- c(queue, 'serpent')
#b
queue <- queue[-1]
#c
queue <- c('donkey', queue)
#d
queue <- queue[-5]
#e
queue <- queue[-3]
#f
queue <- append(queue, 'aphid', after = 2)
#g
print(which(queue == 'aphid'))
## [1] 3
o <- 1:100
l <- which(o %% 2 !=0 & o %% 3 !=0 & o %% 7 !=0)
print(l)
## [1] 1 5 11 13 17 19 23 25 29 31 37 41 43 47 53 55 59 61 65 67 71 73 79 83 85
## [26] 89 95 97