トップ
新規
一覧
単語検索
最終更新
ヘルプ
ログイン
アールメカブ
R_lnre
をテンプレートにして作成
開始行:
[[R_Baayen]]
まずtypeのspectram を作成する.これには ''zipfR'' パッケ...
library(languageR)# alice データをロードするため
# 253
alice.spc <- spc(m = as.numeric(names(alice.table)),
Vm = as.numeric(alice.table))
ここで第一引数 m は各 type の頻度,第二引数 Vm はその頻度...
sum(alice.spc$Vm) # types
sum(alice.spc$m * alice.spc$Vm) # tokens
この spectrum オブジェクトに lnre() 関数を適用する.第一...
# p.254
alice.lnre.gigp <- lnre("gigp", alice.spc)
alice.lnre.gigp # summary
summaryの出力の S は,この場合,Lewis Carrol が Alice を...
この結果をプロットするには plot() と lnre.spc() 関数を組...
# p.255
plot(alice.spc, lnre.spc(alice.lnre.gigp, 25942))
ここで lnre.spc() 関数の第二引数は spectrum が必要とされ...
Interpolation, extrapolation を行う.
# extrapolation
alice.ext.gigp <- lnre.vgc(alice.lnre.gigp,
seq(N(alice.lnre.gigp), N(alice.lnre.gigp)*2,
length = 20), m.max = 3)
# interpolation
alice.int.gigp <- lnre.vgc(alice.lnre.gigp,
seq(0, N(alice.lnre.gigp), length = 20),
m.max = 3)
ここで第一引数は lnre オブジェクトであり,第二引数では to...
成長曲線を描くためには,growth オブジェクトが必要.これを...
alice.growth <- growth.fnc(alice, size = 648,
nchunks = 40) #p.245
alice.vgc <- growth2vgc.fnc(alice.growth)
最後に interpolation, extrapolation, サンプルの成長曲線を...
plot(alice.int.gigp, alice.ext.gigp, alice.vgc,
add.m = 1:3, main = "")
mtext("Vocabulary Growth: Alice in Wonderland",
cex = .8, side = 3, line = 2)
lines(c(0, 25942), c(2634,2634), lty = 2)
text(1,2634, "types = 2634", adj=c(0,1), col = "red")
終了行:
[[R_Baayen]]
まずtypeのspectram を作成する.これには ''zipfR'' パッケ...
library(languageR)# alice データをロードするため
# 253
alice.spc <- spc(m = as.numeric(names(alice.table)),
Vm = as.numeric(alice.table))
ここで第一引数 m は各 type の頻度,第二引数 Vm はその頻度...
sum(alice.spc$Vm) # types
sum(alice.spc$m * alice.spc$Vm) # tokens
この spectrum オブジェクトに lnre() 関数を適用する.第一...
# p.254
alice.lnre.gigp <- lnre("gigp", alice.spc)
alice.lnre.gigp # summary
summaryの出力の S は,この場合,Lewis Carrol が Alice を...
この結果をプロットするには plot() と lnre.spc() 関数を組...
# p.255
plot(alice.spc, lnre.spc(alice.lnre.gigp, 25942))
ここで lnre.spc() 関数の第二引数は spectrum が必要とされ...
Interpolation, extrapolation を行う.
# extrapolation
alice.ext.gigp <- lnre.vgc(alice.lnre.gigp,
seq(N(alice.lnre.gigp), N(alice.lnre.gigp)*2,
length = 20), m.max = 3)
# interpolation
alice.int.gigp <- lnre.vgc(alice.lnre.gigp,
seq(0, N(alice.lnre.gigp), length = 20),
m.max = 3)
ここで第一引数は lnre オブジェクトであり,第二引数では to...
成長曲線を描くためには,growth オブジェクトが必要.これを...
alice.growth <- growth.fnc(alice, size = 648,
nchunks = 40) #p.245
alice.vgc <- growth2vgc.fnc(alice.growth)
最後に interpolation, extrapolation, サンプルの成長曲線を...
plot(alice.int.gigp, alice.ext.gigp, alice.vgc,
add.m = 1:3, main = "")
mtext("Vocabulary Growth: Alice in Wonderland",
cex = .8, side = 3, line = 2)
lines(c(0, 25942), c(2634,2634), lty = 2)
text(1,2634, "types = 2634", adj=c(0,1), col = "red")
ページ名: