Вы можете определить свою пользовательскую функцию, как показано ниже для поднабора
f <- function(v) {
r <- range(which(!is.na(v)))
v[head(r,1):tail(r,1)]
}
Пример
> x1=c(NA,NA,NA,2,NA,3,NA)
> x2=c(NA,NA,NA,2,NA,3,NA,5)
> x3=c(NA,NA,NA,2,NA,NA)
> f(x1)
[1] 2 NA 3
> f(x2)
[1] 2 NA 3 NA 5
> f(x3)
[1] 2