У меня есть 1-й разностный журнал, который мне нужно преобразовать обратно в исходные единицы уровня.Как мне сделать это в R?
Ниже приведены мои ряды данных, соответствующие преобразования и попытки кода:
Исходная серия:
o <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
Зарегистрированная серия:
l <- c(0.693, 1.099, 1.386, 1.609, 1.792, 1.946, 2.079, 2.197, 2.303)
1-я дифференциальная, регистрируемая серия:
dl <- c(-0.693, -1.792, -2.485, -2.996, -3.401, -3.738, -4.025, -4.277, -4.500)
diffinv(dl, differences = 1)
Желаемый выход:
[1] 1 2 3 4 5 6 7 8 9 10
Код попытки:
x <- c(1:10)
lx <- log(x)
dlx <-diff(lx)
diffinv(dlx, differences = 1)
Токовый выход:
[1] 0,0000000 0,6931472 1,0986123 1,386944 1,6094379 1,797595 1,9459101 [8] 2,0794415 2,1972246 2,3025851