R vector todo menos el último

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