我是R语音新手，有一个问题希望能够在这里得到解答。
      问题如下：
      已知ziyuan是一个列向量，范围在（0,1000）
      而money是一个分段函数
      money= 7    ziyuan<=35
      money=7+(ziyuan-35)/5   ziyuan>35&ziyuan<=185
      money=37+(ziyuan-185)/6   ziyuan>185&ziyuan<=479
      我使用的代码是
         length(money)<-length(ziyuan)
money[ziyuan>=0&ziyuan<40]=7
money[ziyuan>=40&ziyuan<191]=7+(ziyuan[ziyuan>=40&ziyuan<197]-35)/5
money[ziyuan>185&ziyuan<=479]=37+(ziyuan[ziyuan>185&ziyuan<=479]-185/6
money[ziyuan>479&ziyuan<=832]=77+trunc((ziyuan[ziyuan>479&ziyuan<=832]-479)/7)
money[ziyuan>832]=127+trunc((ziyuan[ziyuan>832]-832)/8)

但是与老师给我的答案不一样
我不知道是不是我的格式错了
或者有没有更好的格式来写分段函数
谢谢各位了