RjpWikiアクセス数20万回までの道のりの編集

COLOR(blue){SIZE(18){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

#ref(accesslog.png)

期間中のアクセス数グラフ。第一のピークは二冊のR本の出版によるものと思われますが、現在に至る第二のピークは何が原因でしょうか。間の谷はちょうど夏休みですから、学生によるアクセス減が原因でしょうか。その後の盛り上がりは、新学期に講義等で R に触れる機会が増えたからでしょうか？それとも R の普及そのものによる自然増を示すのでしょうか？

#ref(accesslog3.png)

タイムスタンプを変更しない

COLOR(blue){SIZE(18){RjpWikiアクセス数20万回までの道のり}}~

//非線形回帰結果を付け加えてくれた方へ(データが不正確でしたからやり直し、ごめん)
//グラフを変えました。この方がきれい。

#ref(accesslog.png)

#ref(accesslog3.png)

テキスト整形のルールを表示する

RjpWikiアクセス数20万回までの道のり の編集

RjpWikiアクセス数20万回までの道のりの編集