Practice for Week 3’s Lecture

#Slide 37
list_data <- list(c("Red","Green","Black"), list("Python","PHP","Java"))
print("List:")

## [1] "List:"

print(list_data)

## [[1]]
## [1] "Red"   "Green" "Black"
## 
## [[2]]
## [[2]][[1]]
## [1] "Python"
## 
## [[2]][[2]]
## [1] "PHP"
## 
## [[2]][[3]]
## [1] "Java"

print("Number of objects in the said list:")

## [1] "Number of objects in the said list:"

length(list_data)

## [1] 2

#Slide 38
l = list(1,2,3,4,5)
print("Original list:")

## [1] "Original list:"

print(l)

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

print("Set 2nd and 3rd elements to NULL")

## [1] "Set 2nd and 3rd elements to NULL"

l[2]<- NULL
l[3]<- NULL
print(l)

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

#Slide 39
list1 <- list(g1 = 1:10, g2 = "R Programming", g3 = "HTML")
print("Original list:")

## [1] "Original list:"

print(list1)

## $g1
##  [1]  1  2  3  4  5  6  7  8  9 10
## 
## $g2
## [1] "R Programming"
## 
## $g3
## [1] "HTML"

print("#add 10 to each element in first vector")

## [1] "#add 10 to each element in first vector"

list1$g1 <- list1$g1+10
print("New  list:")

## [1] "New  list:"

print(list1)

## $g1
##  [1] 11 12 13 14 15 16 17 18 19 20
## 
## $g2
## [1] "R Programming"
## 
## $g3
## [1] "HTML"

#Slide 40
list1 = list(g1 = 1:10, g2 = "R Programming", g3 = "HTML")
print("Original list:")

## [1] "Original list:"

print(list1)

## $g1
##  [1]  1  2  3  4  5  6  7  8  9 10
## 
## $g2
## [1] "R Programming"
## 
## $g3
## [1] "HTML"

print("#exclude third element of the first vector")

## [1] "#exclude third element of the first vector"

print("First vector:")

## [1] "First vector:"

print(list1$g1[-3])

## [1]  1  2  4  5  6  7  8  9 10

#Slide 41
list1 = list(g1 = 1:10, g2 = "R Programming", g3 = "HTML")
print("Original list:")

## [1] "Original list:"

print(list1)

## $g1
##  [1]  1  2  3  4  5  6  7  8  9 10
## 
## $g2
## [1] "R Programming"
## 
## $g3
## [1] "HTML"

print("add new vector to the said list")

## [1] "add new vector to the said list"

list1 <- c(list1, g4 = "Python")
print(list1)

## $g1
##  [1]  1  2  3  4  5  6  7  8  9 10
## 
## $g2
## [1] "R Programming"
## 
## $g3
## [1] "HTML"
## 
## $g4
## [1] "Python"

#Slide 42
list1 = list(g1 = 1:10, g2 = "R Programming", g3 = "HTML")
print("Original list:")

## [1] "Original list:"

print(list1)

## $g1
##  [1]  1  2  3  4  5  6  7  8  9 10
## 
## $g2
## [1] "R Programming"
## 
## $g3
## [1] "HTML"

print("length of vector g1")

## [1] "length of vector g1"

length(list1$g1)

## [1] 10

print("length of vector g2")

## [1] "length of vector g2"

length(list1$g2)

## [1] 1

#Slide 43
l1 = list("x","y","z")
l2 = list("X","Y","Z","x","y","z")
print("Original list:")

## [1] "Original list:"

print(l1)

## [[1]]
## [1] "x"
## 
## [[2]]
## [1] "y"
## 
## [[3]]
## [1] "z"

print(l2)

## [[1]]
## [1] "X"
## 
## [[2]]
## [1] "Y"
## 
## [[3]]
## [1] "Z"
## 
## [[4]]
## [1] "x"
## 
## [[5]]
## [1] "y"
## 
## [[6]]
## [1] "z"

print("All elements of l2 that are not in l1:")

## [1] "All elements of l2 that are not in l1:"

print(setdiff(l2,l1))

## [[1]]
## [1] "X"
## 
## [[2]]
## [1] "Y"
## 
## [[3]]
## [1] "Z"