引数の大きさに関係なく、常に小数点以下の桁数を返す R 関数が必要です。round() を試しましたが、このようには機能しません。これが私の例です:
Rweb:> round(111234.678912,4) # expect 111234.6789
[1] 111234.7
Rweb:> round(111234.678912/10,4) # expect 11123.4679
[1] 11123.47
Rweb:> round(111234.678912/100,4) # expect 1112.3468
[1] 1112.347
Rweb:> round(111234.678912/1000,4)
[1] 111.2347
Rweb:> round(111234.678912/10000,4)
[1] 11.1235
引数が指数形式の場合は機能しますが、浮動小数点形式の数値を扱う必要があります。