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 4...
[20] 561
> y # アクセス数(単位 万回)
[1] 0 1 2 3 4 5 6 8 9 10 11 12 13 14 15 16 17 ...
> 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 20...
#ref(accesslog.png)
期間中のアクセス数グラフ。第一のピークは二冊のR本の出版に...
#ref(accesslog3.png)
終了行:
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 4...
[20] 561
> y # アクセス数(単位 万回)
[1] 0 1 2 3 4 5 6 8 9 10 11 12 13 14 15 16 17 ...
> 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 20...
#ref(accesslog.png)
期間中のアクセス数グラフ。第一のピークは二冊のR本の出版に...
#ref(accesslog3.png)
ページ名:
![[RjpWiki]](image/../Rlogo.png "[RjpWiki]")
