RjpWikiアクセス数20万回までの道のり
RjpWiki のアクセス数が 2004.12.22 に20万回に達しましたが、これまでの道のりを振り返ります(暇人)。7万回達成時のメモだけが欠けています。当初アクセスカウンターがなかった時期と、途中に一日アクセスカウンターが正常に稼働していなかったことがありますから、若干の誤差が入ります。
> 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 の普及そのものによる自然増を示すのでしょうか?