How to use nested loop over different splitted lists in R?

Question

I want to loop the following chunk of code over the “Split_T_series” splitted lists in R. After splitting Split_T_series splits into 3 lists. As a final output i want to have th