function with vector R

Question

Wrote this function, but as output of lockdown_func(beta.hat_func) I only get the same value, whats my mistake? Probably easy but i just can\'t see it at the mo