![[RjpWiki]](image/../Rlogo.png "[RjpWiki]")
RjpWikiアクセス数20万回までの道のり
RjpWiki のアクセス数が 2004.12.22 に２０万回に達しましたが、これまでの道のりを振り返ります(暇人)。７万回達成時のメモだけが欠けています。当初アクセスカウンターがなかった時期と、途中に一日アクセスカウンターが正常に稼働していなかったことがありますから、若干の誤差が入ります。
> x # 2003.6.11 以来の経過日数
[1] 0 104 142 166 209 237 266 325 347 363 381 400 422 448 472 491 509 527 545
[20] 561
> y # アクセス数(単位 万回)
[1] 0 1 2 3 4 5 6 8 9 10 11 12 13 14 15 16 17 18 19 20
> dat <- data.frame(x,y)
> result<-nls(y ~ a*x^b,dat,start=list(a=0.01,b=1.5))
> plot(x,y)
> lines(x,result$m$fitted())
> result
Nonlinear regression model
model: y ~ a * x^b
data: dat
a b
0.0007613388 1.6075591855
residual sum-of-squares: 0.7625169
> foo <- function(x) 7.613e-04*x^(1.608)
> foo(561+365*0:5) # 一年後にはアクセス総数45万回との予測
[1] 20.03956 44.86073 76.54648 114.23649 157.36439 205.51801
期間中のアクセス数グラフ。第一のピークは二冊のR本の出版によるものと思われますが、現在に至る第二のピークは何が原因でしょうか。間の谷はちょうど夏休みですから、学生によるアクセス減が原因でしょうか。その後の盛り上がりは、新学期に講義等で R に触れる機会が増えたからでしょうか？それとも R の普及そのものによる自然増を示すのでしょうか？
accesslog.png
accesslog3.png
