a <- .001
b <- .07
x <- 0:100
mx <- a * exp(x * b)
# the multiplicative perturbation:
s1 <- sen_arriaga_instantaneous(mx)
s2 <- sen_arriaga_instantaneous2(mx)
plot(x,
s1 - s2,
pch = 16,
cex=.5,
main = "very similar")
Run the code above in your browser using DataLab