R wektor prawie ostatni

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