# Equal variances but different means
KFpredict(10, 4, 12, 4)
# Different variances and means
KFpredict(10, 8, 13, 2)
#measurements = c(5, 6, 7, 9, 10)
#motion = c(1, 1, 2, 1, 1)
#measurement_sig = 4
#motion_sig = 2
#mu = 0
#sig = 10000
#for n in range(length(measurements)){
# [mu, sig] <- KFupdate(mu, sig, measurements[n], measurement_sig)
# return( [mu, sig])
# [mu, sig] <- KFpredict(mu, sig, motion[n], motion_sig)
# return( [mu, sig]) }
Run the code above in your browser using DataLab