Add a random value between 1 and the difference between two other values to a list

Question

I have generated a vector of random values:

> rand=sample(x=data$len, size = 1e6, replace =F)
> freads=rand[rand<8283][1:220];freads
  [1] 1340 1122