r - 前の要素に基づいてベクトル内の要素の範囲を制限する

Question

開始位置ベクトルの各要素に 1 から 15 までの乱数をランダムに追加したい (要素ごとにランダムに描画する) 必要があります。 = to 20 の場合、次の要素が 25 未満になることは望ましくありません)。私が書いたものはそれを達成しましたか?もっと良い方法はありますか?

 startingpositions <- c(seq(5, 110-15, 15),seq(115, 220-15, 15),seq(225, 330-15, 15),seq(335, 440-15, 15))
  positions <- c() 
  x <- 0
  for (j in startingpositions)
# for each element of my vector
  {   
sub.samples <- setdiff(1:15 + j, seq(x-4,x+4,1))
# create the list of numbers it's ok to draw from (based on x which is = to my previous element). Only draw from numbers 4> than x                  
x <- sample(sub.samples, 1)
# create new x for my current element from sub samples
positions <- c(positions,x)  
#add x to my positions vector
 }