各位大大，小弟以前习惯用stata编程，现在改用R，所以很多不太熟悉，特此请教各位，在如下一个finite mixture model 当中，是两个OLS混合而来的，所以有如下的概率密度函数：



在stata中，可以如下书写：
----------------------- copy starting from the next line -----------------------

------------------ copy up to and including the previous line ------------------

求助各位大大怎么把这段函数转成 R 里面的一个function，不胜感激