際際滷

際際滷Share a Scribd company logo
sampling
みなさん
こんにちは
徭失B初
??dichika
??匳狼のデ`タ┰《\とかレセプトとか
??たまに掲紳覆淵芥`ドをいて、YRjpwikiで
鏑られてる
こんな湖じ
そんな暴が
お僕りする
渇竃
容協
`餓u
`その1`
さて、わたくし
枠晩
y方尖冩梢侭の
巷_v恙に佩って
歌りました
これ
措いものだったので
富しでも
峻さんに
おすそわけしたい
おすそわけしたいもの
??渇竃★容協★`餓uという送れ
??渇竃隈┐厘参殖
??渇竃隈に鬉靴人洞┠?`餓u隈
??鬉靴討い襭劼離僖奪羽`ジ
さて
峻さんに
きたい
ポケットに
弌Eいくら
秘ってますか
鯵は書
氏の
弌Eのt~を
岑りたい
匯繁匯繁
ジャンプ
してもらう
めんどい
書指の
竃朗宀40繁の
リストから5繁を
ランダムに渇竃
5繁に
ジャンプ
してもらう
1さん 200
2さん 300
3さん 12
4さん 12
5さん 300
t 824
潤惚
ここから
畠悶を容協
824〜40/5
★6592
5繁が40繁を旗燕している
うさんくさい
eの5繁
だったら
ぶれるん
じゃないの
tの
ぶれ醤栽を
yる
ぶれ醤栽
辺`餓
6592
宗         ;P 2599	
tのぶれ辺`餓の除貌塀
銚鹿皀汽ぅ此船汽鵐廛襪米餓
〔サンプルサイズ
40〜145.3
〔5
潤惚
氏の峻さんの
ポケットの弌Et~
6592\2599
ここまでを
尅り卦ると
銚鹿發らサンプルを渇竃
掲痌go恬薐薐隈
鳳晶y楚┥tに渇竃
_楕の剃方を\じて銚鹿
のtを容協
容協、辺`餓┐屬
嫌をu
渇竃
容協
`餓u
それぞれの
ステップについて
もう富ししく
銚鹿發らサンプルを渇竃
掲痌go恬薐薐隈
鳳晶y楚┥tに渇竃
_楕の剃方を\じて銚鹿
のtを容協
容協、辺`餓┐屬
嫌をu
渇竃
容協
`餓u
渇竃を垢健して
容協の娼業を
互めたい
渇竃隈いろいろ
o恬薐薐
痌 ★
痌go恬
渇竃隈
掲痌 ★
掲痌go恬
薐薐隈
a廁篳を
旋喘する
BA篳 ★ _楕曳箭渇竃隈
カテゴリカル ★ 啝渇竃隈
鹿鯛g了での渇竃 ★ 鹿鯛渇竃隈
みな揖じ_楕で
渇竃されるわけではなくなる
ことに廣吭
┳薐_楕が匯協でない
銚鹿發らサンプルを渇竃
掲痌go恬薐薐隈
鳳晶y楚┥tに渇竃
_楕の剃方を\じて銚鹿
のtを容協
容協、辺`餓┐屬
嫌をu
渇竃
容協
`餓u
渇竃隈に鬉靴
容協?`餓uも
{屁する駅勣が
ある
ナンデ
渇竃_楕が
匯協でない
ということは
サンプルの勣殆
1つが旗燕する
嶷みが`ってくる
渇竃_楕の`いの唹
勣殆
go恬薐薐隈 _楕曳箭渇竃隈
渇竃_楕 旗燕する繁方 渇竃_楕 旗燕する繁方
1 5/40 8 4/40 10
2 5/40 8 4/40 10
3 5/40 8 8/40 5
4 5/40 8 8/40 5
5 5/40 8 4/40 10
せっかく渇竃隈を蹄っても
鬉靴人洞?`餓uを
佩わないと
吭蹐靴申畊が
誼られない
gは誼られた潤惚をもとに
並瘁議に{屁することも辛嬬
┘ャリブレ`ション
云晩は待
ここまで
Rのなし
surveyパッケ`ジで嵐並盾Q
??Auckland ?Univ.のy
僥宀Thomas ?Lumleyが
恬撹
??渇竃隈に鬉靴人
協?`餓uがまとめら
れたパッケ`ジ
svydesign
svydesign(ids ?= ?~e晒した篳, ?
 ? ? ? ? ? ? ? ? ? ? ? ? ? ?weights ?= ?~渇竃ウェイト,
 ? ? ? ? ? ? ? ? ? ? ? ? ? ?data ?= ?鵐禰`タ)
??誼られるのはsurvey.designオブジェクト
??e晒していないときはids=~1と峺協
??渇竃ウェイトは、サンプルの光勣殆が銚鹿
發厘殆をどれだけ旗燕しているか
C? go恬薐薐隈の栽は渇竃_楕の剃方
svytotal
svytotal ? ?(x ?= ?~鹿したい朕議篳, ?
 ? ? ? ? ? ? ? ? ? ? ? ? ? ?design ?= ?survey.designオブジェクト,
 ? ? ? ? ? ? ? ? ? ? ? ? ? ?na.rm ?= ?FALSE,
 ? ? ? ? ? ? ? ? ? ? ? ? ? ?deff ?= ?FALSE)
??鹿したい朕議篳は}方辛嬬。その
栽は~朕議篳1朕議篳2...と峺協
??na.rm、deffについては峺協しない栽、
兜豚、FALSE
# surveyパッケ`ジのiみzみ
library(survey)
# デ`タをつくる
df <- data.frame(kozeni = c(200,300,12,12,300),
              wt = (40/5) )
# svydesignで渇竃デザインと渇竃ウェイトを峺協する
stts <- svydesign(ids = ~1, weights = ~wt, data = df)
# svytotalで容協する
svytotal(x = ~kozeni, design = stts)
total SE
kozeni 6592 2599.9	
返麻と匯崑
まとめ
お擦┐任たのはごく匯何です
??渇竃★容協★`餓uという送れ
??渇竃隈┐厘参殖
??渇竃隈に鬉靴人洞┠?`餓u隈
??鬉靴討い襭劼離僖奪羽`ジ
お擦┐靴討い覆い海
??サンプルサイズのO
??渇竃隈に鬉靴織僖奪羽`ジB初sampling
??t參翌の容協楚について
??go恬薐薐隈參翌の渇竃隈を聞った
栽の匯違晒侘モデルのm喘
??デザイン森
??キャリブレ`ションの
またC氏があれば
その2參週を
やります
棋てない繁これをiんでね
??防小鴬鳳蒋{坊秘T
C? 1200劼醗欧い錣蠅膨敞櫃發い里妊灰好儻澆
??輿塁臓圍左鍍h鳳蒋{坊
C? 書指のネタ云、巷_v恙もわかりやすくてオススメ
C? 劾}糾のサイトにsurveyパッケ`ジを聞ったサン
プルコ`ドあり
??圻oほか塞膸疸{朴歔
C? g箭を岑りたい栽はこちら
艶稼逮看霞

More Related Content

sampling