R Как рассчитать точку пересечения функции наклона Сена из пакета трендов?

Я хочу оценить тенденции осадков (в процентах) в долгосрочной перспективе. В первый раз я рассчитываю наклон сена из «пакета трендов», но он пропускает точку пересечения, чтобы применить это линейное уравнение для нахождения прогнозируемого значения каждого года:

f(S) = QS + B (Q: наклон Сена, S: параметр, B: точка пересечения)

Я использую этот пример, чтобы объяснить мою проблему:

# import data
require(trend)
data("maxau")
maxau

# Estimate Annual trend with sen's slope

s <- maxau[,"s"]
sens.slope(s) # equal to  -0.2876139 / year

Можете ли вы помочь мне, как рассчитать точку пересечения (B) уравнения f (S), чтобы рассчитать прогнозируемое значение параметра S для каждого года?

Заранее спасибо за вашу помощь !