Я пытаюсь смоделировать эксперимент в математической модели. Результирующий набор данных содержит данные из эксперимента - выходные данные (out_exp), которые являются результатом входных данных (inp_exp) - и данные моделирования имитации выходных данных эксперимента (out_sim), которые являются результатом входных данных (inp_sim).
Когда я объединяю все данные в фрейм данных, можно обнаружить нерегулярный сдвиг между наборами смоделированных и экспериментальных данных. Чтобы иметь возможность сравнивать и оценивать out_exp и out_sim, и inp_exp, и inp_sim должны начинаться с одной и той же даты. Это означает, что мне нужно сдвинуть данные из симуляции (inp_sim и out_sim) вместе в соответствии с входными данными (т.е. inp_exp [i] == inp_sim [i]). Проблема в том, что смещение между входными данными не является регулярным (см. Данные ниже).
У кого-нибудь есть идеи, как это сделать? Заранее спасибо.
Исходные данные:
inp_exp <- c(0,0,5,1,2,3,4,0,0,0,1,4,8,1,2,0,0,0,0,1,5,8,9,9,1,0,0,0)
inp_sim <- c(0,0,0,5,1,2,3,4,0,0,0,0,0,0,1,4,8,1,2,0,1,5,8,9,9,1,0,0)
out_exp <- c(0,0,0,1,4,5,1,0,0,0,0,1,2,4,1,0,0,0,0,0,2,4,5,8,2,0,0,0)
out_sim <- c(0,0,0,0,0,1,2,1,0,0,0,0,0,0,0,1,2,3,1,0,0,0,1,5,6,4,1,0)
D <- seq(as.Date("2018/10/2"), by = "day", length.out = length(inp_exp))
df <- data.frame(D, inp_exp, inp_sim, out_exp, out_sim)
df
Ожидаемый результат:
inp_exp <- c(0,0,5,1,2,3,4,0,0,0,1,4,8,1,2,0,0,0,0,1,5,8,9,9,1,0,0,0)
inp_sim <- c(0,0,5,1,2,3,4,0,0,0,1,4,8,1,2,0,0,0,0,1,5,8,9,9,1,0,0,0)
out_exp <- c(0,0,0,1,4,5,1,0,0,0,0,1,2,4,1,0,0,0,0,0,2,4,5,8,2,0,0,0)
out_sim <- c(0,0,0,0,1,2,1,0,0,0,0,1,2,3,1,0,0,0,0,0,0,1,5,6,4,1,0,0)
D <- seq(as.Date("2018/10/2"), by = "day", length.out = length(inp_exp))
df <- data.frame(D, inp_exp, inp_sim, out_exp, out_sim)
df