Question 1
x <- 1.1
a <- 2.2
b <- 3.3
z <- x^a^b
print(z)
## [1] 3.61714
z <- (x^a)^b
print(z)
## [1] 1.997611
z <- (3*x^3) + (2*x^2) + 1
print(z)
## [1] 7.413
Question 2
a <- seq(from = 1, to = 8)
b <- seq(from = 7, to = 1)
c <- c(a,b)
print(c)
## [1] 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1
rep(1:5, c(1,2,3,4,5))
## [1] 1 2 2 3 3 3 4 4 4 4 5 5 5 5 5
rep(5:1, c(1,2,3,4,5))
## [1] 5 4 4 3 3 3 2 2 2 2 1 1 1 1 1
Question 3
runif(2)
## [1] 0.5930122 0.3286132
x <- 0.9449264
y <- 0.4901533
theta <- atan(y/x)
print(theta)
## [1] 0.4785121
r <- sqrt((x^2)+(y^2))
print(r)
## [1] 1.064489
Question 4
queue <- c("sheep", "fox", "owl", "ant")
print(queue)
## [1] "sheep" "fox" "owl" "ant"
c(queue, "serpent")
## [1] "sheep" "fox" "owl" "ant" "serpent"
queue <- c(queue, "serpent")
queue <- queue[-1]
queue
## [1] "fox" "owl" "ant" "serpent"
queue <- c("donkey", queue)
print(queue)
## [1] "donkey" "fox" "owl" "ant" "serpent"
queue <- queue[-5]
print(queue)
## [1] "donkey" "fox" "owl" "ant"
queue <- queue[-3]
print(queue)
## [1] "donkey" "fox" "ant"
c(queue[1], queue[2],"aphid", queue[3])
## [1] "donkey" "fox" "aphid" "ant"
append(queue, "aphid", after = 2)
## [1] "donkey" "fox" "aphid" "ant"
queue <- append(queue, "aphid", after = 2)
print(queue)
## [1] "donkey" "fox" "aphid" "ant"
# The Aphid is 3rd in line
Question 5
vector <- c(1:100)
print(vector)
## [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
## [19] 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
## [37] 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
## [55] 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72
## [73] 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90
## [91] 91 92 93 94 95 96 97 98 99 100
which(vector%%2!=0 & vector%%3!=0 & vector%%7!=0)
## [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
vector <- which(vector%%2!=0 & vector%%3!=0 & vector%%7!=0)
print(vector)
## [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