具有for循环和变量创建功能

Question

我做了以下功能：

library(magicfor)
aufsum_func <- function(stes_zu_mo, proz_teil, taggeld) 
  {
  ko_mo_1 <- (4500+115)* stes_zu_mo*proz_teil
  er_mo_1 <- (19.8/500*30)*taggeld*stes_zu_mo*proz_teil
  magic_for(silent = T)
  for(p in 1:200)
    { 
    if(p==1)
      {
      aufsum_mo <- er_mo_1 - ko_mo_1  
      }
    else if(p>1 & p<=22)
      {
      aufsum_mo <- er_mo_1 *p + aufsum_mo - ko_mo_1     
      }
    else
      {
      aufsum_mo <- er_mo_1 *22 + aufsum_mo - ko_mo_1  
      }
    put(aufsum_mo)
    }
  temp <- magic_result_as_dataframe(iter = F)
  return(temp)
}

df_45_4 <- aufsum_func(stes_zu_mo=83230/12, proz_teil=0.4, taggeld=203)
df_45_5 <- aufsum_func(stes_zu_mo=83230/12, proz_teil=0.538, taggeld=203)

我总是收到以下错误：

 Error: object 'er_mo_1' not found 

我的问题是为什么找不到对象？对我来说，我编写的函数似乎跳过了前两个甚至三个语句？否则，该对象应该已经通过函数找到了？所以我做错了什么？您能帮我调试功能吗？我对编写函数还是比较陌生的，如果问题很容易解决，请原谅我！ ：）