na.seadec replaces zero values about imputets HOT 4 CLOSED

n = 20
tsAirgap[sample(1:length(tsAirgap), n)] <- 0

x <- na_seadec(tsAirgap, algorithm = "interpolation")
x1 <- na_seadec(tsAirgap, algorithm = "mean")
x2 <- na_seadec(tsAirgap, algorithm = "locf")
x3 <- na_seadec(tsAirgap, algorithm = "random")
x4 <- na_seadec(tsAirgap, algorithm = "kalman")
x5 <- na_seadec(tsAirgap, algorithm = "ma")

all(c(sum(x==0, na.rm=T),
  sum(x1==0, na.rm=T),
  sum(x2==0, na.rm=T),
  sum(x3==0, na.rm=T),
  sum(x4==0, na.rm=T),
  sum(x5==0, na.rm=T)) == 20)