R vector все, кроме последнего

y <- x[1:(length(x) - 1)]
Cautious Caiman