## Load data
data(dt_noisy)
time <- dt_noisy$time[11931:12891]
target <- dt_noisy$dt[11931:12891]
time_prd_tail <- time[148]
## Calculate reference values of average and standard deviation
result <-
calc_ref_stats(vctr_time = time, vctr_target = target,
vctr_time_prd_tail = time_prd_tail)
Run the code above in your browser using DataLab