I have a zoo object made of several time series, like this:

```
indices <- seq.Date(as.Date('2000-01-01'),as.Date('2005-01-30'),by="year")
a <- zoo(rnorm(5), order.by=indices)
b <- zoo(rnorm(5), order.by=indices)
c <- zoo(rnorm(5), order.by=indices)
ts_origin <- merge(a,b,c)

```

I would like to multiply each zoo series from ts\_origin by a ratio contained in a dataframe, an put
the results in another zoo object (ts\_final) that contains the time seris d,e,f. In other words,
the dataframe is a concordance file between a,b,c and d,e,f , and the ratio would be applied this way:
ts\_final$d = ts\_origin$a \* 10 ; ts\_final$e = ts\_origin$b \* 100 ; ts\_final$f = ts\_origin$c \* 1000.

```
df <- data.frame(original = c("a","b","c"),
                 final = c("d","e","f"),
                 ratio = c(10,100,1000))

indices <- seq.Date(as.Date('2000-01-01'),as.Date('2005-01-30'),by="year")
d <- zoo(, order.by=indices)
e <- zoo(, order.by=indices)
f <- zoo(, order.by=indices)
ts_final <- merge(d,e,f)

```

Not too sure what the best approach for this. I was trying with the apply function, but couldn't make
it work... any help would be greatly appreciated!