#1
my_vector <- c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,1,2,3,4,5)
my_vector + c(1,2)
## [1] 2 4 4 6 6 8 8 10 10 12 12 14 14 16 16 3 3 5 5 7
#2
char_vect <- as.character(my_vector)
char_vect
## [1] "1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15"
## [16] "1" "2" "3" "4" "5"
#3
fact_vec <- as.factor(my_vector)
fact_vec
## [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 1 2 3 4 5
## Levels: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
#4
length(levels(fact_vec))
## [1] 15
#5
result <- 3 * my_vector ^ 2 - 4 * my_vector + 1
result
## [1] 0 5 16 33 56 85 120 161 208 261 320 385 456 533 616 0 5 16 33
## [20] 56
#6
my_list <- list(elem1 = "Nick", elem2 = "Apple" , elem3= "Cake")
my_list
## $elem1
## [1] "Nick"
##
## $elem2
## [1] "Apple"
##
## $elem3
## [1] "Cake"
#7
col1 <- letters
col2 <- c("Apple", "Banana", "Cake", "Apple", "Banana", "Cake", "Apple", "Banana", "Cake", "Apple", "Banana", "Cake", "Apple", "Banana", "Cake", "Apple", "Banana", "Cake", "Apple", "Banana", "Cake", "Apple", "Banana", "Cake", "Apple", "Banana")
col3 <- seq(from = 0, by = 5, length.out = 26)
col4 <- seq(as.Date("2022/12/04"), by = "years", length.out = 26 )
df <- data.frame(col1,as.factor(col2),col3,col4)
df
## col1 as.factor.col2. col3 col4
## 1 a Apple 0 2022-12-04
## 2 b Banana 5 2023-12-04
## 3 c Cake 10 2024-12-04
## 4 d Apple 15 2025-12-04
## 5 e Banana 20 2026-12-04
## 6 f Cake 25 2027-12-04
## 7 g Apple 30 2028-12-04
## 8 h Banana 35 2029-12-04
## 9 i Cake 40 2030-12-04
## 10 j Apple 45 2031-12-04
## 11 k Banana 50 2032-12-04
## 12 l Cake 55 2033-12-04
## 13 m Apple 60 2034-12-04
## 14 n Banana 65 2035-12-04
## 15 o Cake 70 2036-12-04
## 16 p Apple 75 2037-12-04
## 17 q Banana 80 2038-12-04
## 18 r Cake 85 2039-12-04
## 19 s Apple 90 2040-12-04
## 20 t Banana 95 2041-12-04
## 21 u Cake 100 2042-12-04
## 22 v Apple 105 2043-12-04
## 23 w Banana 110 2044-12-04
## 24 x Cake 115 2045-12-04
## 25 y Apple 120 2046-12-04
## 26 z Banana 125 2047-12-04
#8
#9
#temp_data <- read.table("temperatures.csv", header = TRUE, sep = ",")
#10
#initializing variables
balance <- 1500
interest <- 0.0324
months <- 6 * 12
for (i in 1:months) {
balance <- balance * (1 + interest / 12) #compound interest formula
}
balance <- round(balance, 2) #round to 2 decimal points
balance
## [1] 1821.4
# 11
vect_2 <- seq(from = 1, to = 20) # creates the numeric vector
sum <- 0 # initialize sum
vect_2
## [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
for (i in seq(from = 3, to = 20, by = 3)) { # loop through 3-20 by increments of 3
sum <- sum + i # adds to sum
}
sum
## [1] 63
# 12
#initialize variables
x <- 2
sum <- 0
for (i in 1:10) { # loop through 1 to 10
sum <- sum + x ^ i # takes sum then adds x ^ i
}
sum
## [1] 2046
#13
# initializing variables
x <- 2
sum_2 <- 0
i <- 1
while (i < 11) { # loop condition
sum_2 <- sum_2 + x ^ i
i <- i + 1 # increments i by 1
}
sum_2
## [1] 2046
#14
x <- 2
y <- c(1:10)
total <- x ^ y # x is recycled to match the length of y
sum(total) # sum() sums all the elements in total
## [1] 2046