r Error in For-Loop of a Simulation Function

Question

I am trying to create a function so that I can rowwise a data frame through (as suggested by @rpolicastro Run a Monte Carlo for each row of a data frame in R)

<