Normalized Probabilities in Four Loop in R

Question

I am trying to replicate my data by generating some random data and putting it through a simulation in R. In this simulation, I created a weight for depth, p1 and weight aga