如何在R中编写SLOBODA趋势函数

Question

以下公式的R代码是什么？

Answer 1

H = b*(S/b)*exp(-b/((a-1)*50^(a-1)) + b/((a-1)*t^(a-1)))

提供b，S，a，t以前都已定义。