How to sub set a vector in an for loop?

Question

I am struggling to subset a vector from a larger vector.

Below is a sample of my data set that I import into r from a CSV file. [enter image description here][1] [1]: