problem with function conversion mathlab to r?

Question

Please someone of you can convert this mathlab code into r code please ? I have a lot of pain to find the corresponding function in r.

THANKS a lot mate !