как продлить линию в будущее

Question

Есть у нас какой то вектор

vect <- c(1,3,7,4,12,8,14,9,21)
plot(vect,t="l")

выбираем две точки и проводим линию между ними

i <- c(3,5)
points(i,vect[i],lwd=2,col=4)
segments(3,vect[3],5,vect[5],col=2,lwd=2,lty=3)

Вопрос : как мне продлить эту линию в будущее на n значений

И получить эту линию в виде вектора с значениями

Answer 1

Написал такую функцию

fu <- function(vec,x1,x2){
p.ln <- x2-x1+1
my.trend <- approx(vec[c(x1,x2)],n = p.ln)$y
my.trend <- c(rep(NA,x1-1),my.trend) 
fst <- tail(diff(my.trend),1)
future <- cumsum(  c(    tail(my.trend,1) ,  rep(fst,length(vec)-x2)     ))[-1]
res <- c(my.trend,future)
lines(res,t="l",lwd=2)
return(res)
}

В принципе работает

fu(vect,i[1],i[2])

только громоздкая получилась((