Rによる端数処理-有効数字による数値丸め

Reference – https://twitter.com/R_Programming/status/678462825375772672
Script
x<-pi*100^(-1:3)
pi
x
for(sf in 1:4){
cat("significant figures",sf,"\n")
cat("round() :",round(x,sf),"\n")
cat("signif():",signif(x,sf),"\n\n")
}
sample
signif(sample,2)
Result
> pi
[1] 3.141593

> x
[1] 3.141593e-02 3.141593e+00 3.141593e+02 3.141593e+04 3.141593e+06

significant figures 1 
round() : 0 3.1 314.2 31415.9 3141593 
signif(): 0.03 3 300 30000 3e+06 

significant figures 2 
round() : 0.03 3.14 314.16 31415.93 3141593 
signif(): 0.031 3.1 310 31000 3100000 

significant figures 3 
round() : 0.031 3.142 314.159 31415.93 3141593 
signif(): 0.0314 3.14 314 31400 3140000 

significant figures 4 
round() : 0.0314 3.1416 314.1593 31415.93 3141593 
signif(): 0.03142 3.142 314.2 31420 3142000 

> sample
    対外.株式投資ファンド持分.ネット 対外.中長期債.ネット 対外.短期債.ネット 対外.合計.ネット
567                              146                 8933               -540             8539
568                             3417                 4090               -112             7395
569                              535                -1566              -1269            -2300
570                             2346                  813              -1107             2052
571                              218                 3194                626             4038
> signif(sample,2)
    対外.株式投資ファンド持分.ネット 対外.中長期債.ネット 対外.短期債.ネット 対外.合計.ネット
567                              150                 8900               -540             8500
568                             3400                 4100               -110             7400
569                              540                -1600              -1300            -2300
570                             2300                  810              -1100             2100
571                              220                 3200                630             4000

2016年03月29日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第4週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移

2016年03月22日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第3週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移

2016年03月15日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第2週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移