Change header for prediected data.frame, and add Smooth controller as numeric ranged [0,1] for smoothing and to have variable number of predicted data