R: usuwanie ostatnich elementów wektora

Question

Jak mogę usunąć ostatnie 100 elementów z serii Zoo?

wiem nazwę [-elementowe] notacji ale nie mogę go uruchomić odjąć pełnym przekroju

Answer 1

Wystarczy użyć wskaźników liczbowych, czyli

N <- nrow(X) 
X <- X[1:(N-100-1),] 

gdzie powinna trzeba zapewnienie N jest większy 100 itp

Answer 2

jeśli jesteś jeden wykładziny rurowej

x = x[1:(length(x) -101)] 

Answer 3

Dla tego lubię używać head, ponieważ łatwiej jest pisać. Inne metody prawdopodobnie działają szybciej ... ale jestem leniwy, a mój komputer nie. ;-)

x <- head(x,-100) 
> head(1:102,-100) 
[1] 1 2 

Answer 4

Założę length<- jest najbardziej skutecznym sposobem przyciąć Vector:

> x <- 1:10^5 
> length(x) 
[1] 100000 
> length(x) <- 3 
> x 
[1] 1 2 3 

Answer 5

Another One-liner dla kompletności wywodu:

x <- lag(x, 100)[-1:-100] 

Answer 6

Faktycznie, istnieje o wiele szybciej:

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

Code show:

> microbenchmark(y <- head(x, -1), y <- x[-length(x)],y <- x[1:(length(x)-1)], times=10000) 
Unit: microseconds 
         expr min  lq  mean median  uq  max 
      y <- head(x, -1) 71.399 76.4090 85.97572 78.9230 84.2775 2795.076 
     y <- x[-length(x)] 53.623 55.5585 65.15008 56.5680 61.1585 2523.141 
y <- x[1:(length(x) - 1)] 25.722 28.2925 36.43029 29.1855 30.4010 2410.975