I wrote this but it is not correct
L=1.127 for(i in 1:length(data)){ if data[i]>forecast22[i]& (data [i]-forecast22[i])>=L/3 forecast2