Eu tenho quatro quadros de dados que contêm uma coluna de data, uma coluna de preço e uma coluna de retorno.

data.1:

Date        Price  Return
2009-01-02  100    0.2
2009-01-03  110    0.1
etc.

data.2:

Date        Price  Return
2009-02-02  60    0.15
2009-02-03  50    -0.1
etc.

Gostaria de configurar um loop e aplicar a densidade da função () a cada quadro de dados, retornando os valores de densidade para os retornos.

Eu passo sobre como criar uma lista, configurar um loop e usar lapply () para fazer isso, então

> ff <- list(data.1, data.2, data.3, data.4)
> for(i in 1:length(ff){
        density[[i]] <- lapply(ff, density(ff[[i]]$Return))}

mas isso obviamente não funciona. Alguém poderia me oferecer alguma ajuda?

Agradecemos antecipadamente - Dani