The maximum time weighted average concentration for a moving window
max_twa(x, window = 21)
one_box
twa