Run time problem nested for loop in R - looking for speed-up options

Question

I am quite new to R and am facing some run time problems with my nested for loop. I would like to do some operations on my input matrix (m_clones num[1:7000, 1:30]). The out