get() and assign()

#assign value of object "a1" to object named "a2"
a1 <- c(1, 2, 3)
assign("a2", a1)
print(a2)

#get value of object "a1"
get("a1")

#assign value of object "a1" to object named "a2"
assign("a3", get("a1"))
print(a3)

#save objects named "a1", "a2", "a3"
save(a1, a2, a3, file = "test1.RData")

#save objects named with pattern "^a"
obj.list <- ls(pattern="^a")
save(list = obj.list, file = "test2.RData")