插值到一個新的時間向量

Question

是否有一種將時間序列插值到新的時間序列的方法。例如：

data(co2) 

Mauna <- as.numeric(window(co2, start = c(1991,1), end=c(1991,12))) 
time = seq(from=as.Date("1991-01-01"), to=as.Date("1991-12-01"), length=12) 

newTime = seq(from=as.POSIXct("1991-01-01 00:00"), to=as.POSIXct("1991-12-31 23:00"), length=8760) 

從這個我想在莫納克亞數據插值到從而增加了在冒測量次數，以8760新的時間向量才能實現這一目標？

Answer 1

嘗試approx()用於線性內插：

MaunaLinear <- approx(Mauna,n=8760)$y 
plot(newTime,MaunaLinear) 

嘗試spline()函數的平滑內插：

MaunaSmooth <- spline(Mauna,n=8760)$y 
plot(newTime,MaunaSmooth)