# 1.
numericals <- 1 * (1:6)
integers <- (1:6)
characters <- c("a","b","c","d","e","f")
logicals <- vector(mode="logical", length =6)
complexes <- vector(mode="complex", length =6)
# 2.
sum <- c(1:3) + c(3:1)
# 3.
append(vector(mode = "logical", length = 0), TRUE)
# 4.
vector <- c(5,6,2,3,54)
sort(vector)
sort(vector, decreasing = TRUE)
# 5.
n <- 3
sort(vector, decreasing = TRUE)[n]
# 6.
list <- list("a", TRUE, 1:3, 256)
# 7.
a<-list(1:3, 4:6)
a[[1]][2]
# 8.
list1 <- list("a", 0, FALSE)
list2 <- list("b", 1, TRUE)
merge (list1, list2)
# 9.
matrix1 <- matrix(data = 1:6, nrow=2, ncol =3)
matrix2 <- matrix(data = 7:12, nrow=2, ncol =3)
matrix1+matrix2
matrix1-matrix2
matrix1*matrix2
matrix1/matrix2
# 10.
cbind(matrix1,matrix2)