x <- c(1.1)
a <- c(2.2)
b <- c(3.3)
z <- c(x, a, b)
print(z)
## [1] 1.1 2.2 3.3
z <- c(x^a^b)
print(z)
## [1] 3.61714
z <- c((x^a)^b)
print(z)
## [1] 1.997611
z <- c((3*x^3) + (2*x^2) + 1)
print(z)
## [1] 7.413
y <- c(1:8)
y2 <- rev(1:7)
y3 <- c(y,y2)
print(y3)
## [1] 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1
w <- rep(1:5, c(1,2,3,4,5))
w2 <- rep(1:5, 1:5)
print(w)
## [1] 1 2 2 3 3 3 4 4 4 4 5 5 5 5 5
v <- rev(1:5)
v2 <- rep(v, 1:5)
print(v2)
## [1] 5 4 4 3 3 3 2 2 2 2 1 1 1 1 1
x <- runif(1)
y <- runif(1)
r <- sqrt((x)^2 + (y)^2)
theta <- atan(y/x)
queue <- c("sheep", "fox", "owl", "ant")
queue2 <- append(queue, "serpent")
queue3 <- queue2[!queue2 %in% "sheep"]
queue4 <-append(queue3, "donkey", after=0)
queue5 <- queue4[!queue4 %in% "serpent"]
queue6 <- queue5[!queue5 %in% "owl"]
queue7 <- append(queue6, "aphid", after=2)
which(queue7 == "aphid")
## [1] 3
a <- seq(1:100)
a <- a[-which((a[]%%2==0))]
a <- a[-which((a[]%%3==0))]
a <- a[-which((a[]%%7==0))]
a
## [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