Complex Replicate function in R

Question

I have a code in R that in the end produce, among others, a vector named sigma and 3 subsets namely, sub1.sigma, sb2.sigma, sub3.sigma