my_list <- (name = "Shaik S", age = 19, scores = c(85, 90, 91), is_student = TRUE)

print(my_list["age"])

print(my_list$hobbies <- c("gym", "coding") )

print(my_list$scores <- NULL )

list1 = list(section = "A", strength = 100, list2 = list(name = "Shaik", age = 19))
print(list1$list2["name"])

# Given list
y <- list("a", "b", "c")

# Assigning new names to the elements of y
names(y) <- c("one", "two", "three")

# Displaying the updated list y with new names
print(y)

list1 <- list("A", "B", "C")

list_to_vector <- unlist(list1)

print(list_to_vector)

list1 <- list("a", "b", "c", "d")
list2 <- list("b", "d", "e")

elements_not_in_list2 <- list1[!list1 %in% list2]

print(elements_not_in_list2)

# Given string
string <- "Grand Opening"

# Splitting the string into two parts based on the space character
split_string <- strsplit(string, " ")[[1]]

# Displaying the output
for (part in split_string) {
  print(part)
}