# Trying rattach:
x <- rvnorm(9)
names(x) <- paste("theta[", 1+seq_along(x), "]", sep="")
L <- list(x=x)
x <- 1:10
rattach(L, impute=TRUE) # attaches a list called 'L' containing an object 'x'
print(x)
detach("L")
exists("x") # FALSE
# Trying rvattach:
rvattach(L$x) # attaches a list 'rvattach' containing an object 'theta'
print(theta)
rvattach() # Detaches the list 'rvattach'
exists("theta") # FALSE
Run the code above in your browser using DataLab