Time Series Imputation

library(imputeTS)

x <-ts(c(1,2, 3, 4, 5, 6, 7, 8, NA, NA, 11, 12))

na_mean(x)

Time Series:
Start = 1 
End = 12 
Frequency = 1 
 [1]  1.0  2.0  3.0  4.0  5.0  6.0  7.0  8.0  5.9  5.9 11.0 12.0

na_mean(x, option="median")

Time Series:
Start = 1 
End = 12 
Frequency = 1 
 [1]  1.0  2.0  3.0  4.0  5.0  6.0  7.0  8.0  5.5  5.5 11.0 12.0

na_interpolation(x)

Time Series:
Start = 1 
End = 12 
Frequency = 1 
 [1]  1  2  3  4  5  6  7  8  9 10 11 12

ts.plot(tsAirgap)

imp <- na_kalman(tsAirgap)
ggplot_na_imputations(tsAirgap, imp)

ggplot_na_distribution(tsAirgap)