Homework4

Question 1

x <- 1.1
a <- 2.2
b <- 3.3

# A
z <- (x)^(a)^(b)
print(z)

## [1] 3.61714

# B
z <- (x^a)^(b)
print(z)

## [1] 1.997611

# C
z <- 3*(x^3)+2*(x^2)+1
print(z)

## [1] 7.413

Question 2

# A
a <- c(seq(1:8), (7:1))
print(a)

##  [1] 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1

# B
my_vec <- seq(1:5)
b <- rep(x=my_vec, times=my_vec)
print(b)

##  [1] 1 2 2 3 3 3 4 4 4 4 5 5 5 5 5

# C
my_vec <- c(5:1)
my_vec1 <- c(1:5)
c <- rep(x=my_vec, times=my_vec1)
print(c)

##  [1] 5 4 4 3 3 3 2 2 2 2 1 1 1 1 1

Question 3

x <- runif(1)
y <- runif(1)
r <- tan(y/x)
print(r)

## [1] 0.4267884

theta <- asin(y/r)

## Warning in asin(y/r): NaNs produced

print(theta)

## [1] NaN

polar <- c(r, theta)
print(polar)

## [1] 0.4267884       NaN

Question 4

queue <- c("sheep", "fox", "owl", "ant")

# A 
queueA <- c(queue, "serpent")
print(queueA)

## [1] "sheep"   "fox"     "owl"     "ant"     "serpent"

# B
queueB <- queueA[-1]
print(queueB)

## [1] "fox"     "owl"     "ant"     "serpent"

# C
queueC <- c("donkey", queueB)
print(queueC)

## [1] "donkey"  "fox"     "owl"     "ant"     "serpent"

# D
queueD <- queueC[-5]
print(queueD)

## [1] "donkey" "fox"    "owl"    "ant"

# E
queueE <- queueD[-3]
print(queueE)

## [1] "donkey" "fox"    "ant"

# F
queueF <- c(queueE[2], "aphid", queueE[3])
print(queueF)

## [1] "fox"   "aphid" "ant"

# G 
aphid <- which(queueF == "aphid")
print(aphid)

## [1] 2

Question 5

numbers <- 1:100
my_vec <- numbers[!(numbers %% 2 == 0 | numbers %% 3 == 0 | numbers %% 7 == 0)]
print(my_vec)

##  [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