>>499
会社の保有タクシーの1/10を見かけるという設定にすると、
保有台数の期待値は
> (E=sum(n*pdf)) #E(n)
Big Rational ('bigq') :
[1] 3227731840022425305671481482068/51591873134248518256501274345
> as.numeric(E)
[1] 62.5628
になる。

>512のコードを
z=100
max=60

n=as.bigq(max:z)
legible=round(n/10)
と書き換えるだけ。