khobson at fd9ns01.okladot.state.ok.us wrote: > > > > The solution that Douglas proposed does not work. Any other ideas? In what way does it not work? I get > ds <- function(myds, vec) {myds[[vec]]*2} > ds1 <- c(X=list(1:10), Y=list(11:20)) > ds(ds1, "Y") [1] 22 24 26 28 30 32 34 36 38 40 Isn't that what you wanted?