# define nawru model for France
data("gap")
tsList <- amecoData2input(gap$France)
model <- NAWRUmodel(tsl = tsList)
# estimate nawru model
# \donttest{
f <- fit(model = model)
# compute anchored nawru
anchoredNawru <- trendAnchor(fit = f, anchor = 6.5, h = 10)
# }
Run the code above in your browser using DataLab