R降雪-难以实现调用其他函数的函数

I am trying to teach myself how to use the Snowfall package, and I have run into the following problem when I try a function that calls a second function (this is a simplified use case of what I ultimately want to implement).I am trying to teach myself how to use the Snow