This function does not handle NA values
fast_movavg(data, window_size)
a vector
or a column matrix
of numeric
.
moving sd window size
Returns a vector
with the moving average
data_avg <- fast_movavg(mp_toy_data$data[, 1], mp_toy_data$sub_len)