Как использовать вложенный l oop в разных разделенных списках в R?

Question

Я хочу l oop следующий фрагмент кода поверх разделенных списков «Split_T_series» в R. После разделения Split_T_series разбивается на 3 списка. В качестве окончательного результата я хочу иметь три отдельных выходных файла (Output_1, Output_2 и Output_3). Я не знаком с вложенными циклами for. Кто-нибудь может мне с этим помочь?

Split_T_series = split(Samp_Carb_Cal, Samp_Carb_Cal$...2)

Output_1 <-as.data.frame(Split_T_series[1]$`1`[,c(2:4,7:9)])

t_sl_1<-Split_T_series[1]$`1`$cm...9

OCi_1<-Split_T_series[1]$`1`$`tC / Ha...10`

BD_sl_1<-Split_T_series[1]$`1`$`g / cm3`

A_coring<-round(PA_n_Sampling[52,4],2) 

Gravel_percent<-20

gGi_1<- c()
for (i in 1:length(OCi_1)){
  gGi_1[i]<- as.numeric(BD_sl_1[i]*A_coring*t_sl_1[i]*Gravel_percent/100)
  gGi_1
}
gGi_1<-(gGi_1)
Output_1 [,7]<-gGi_1
head(Output_1)

M_a_1<-as.matrix(BD_sl_1*t_sl_1*100)
Output_1 [,8]<-M_a_1
head(Output_1)