1 개요[ | ]
- R getdata()
- "Get Data"
R
Copy
summary(warpbreaks)
## breaks wool tension
## Min. :10.00 A:27 L:18
## 1st Qu.:18.25 B:27 M:18
## Median :26.00 H:18
## Mean :28.15
## 3rd Qu.:34.00
## Max. :70.00
table(warpbreaks$wool,warpbreaks$tension)
##
## L M H
## A 9 9 9
## B 9 9 9
library(sampling)
(s <- strata(warpbreaks,c("wool","tension"),size=c(2,2,2,2,2,2),method="srswor"))
## wool tension ID_unit Prob Stratum
## 4 A L 4 0.2222222 1
## 9 A L 9 0.2222222 1
## 13 A M 13 0.2222222 2
## 14 A M 14 0.2222222 2
## 20 A H 20 0.2222222 3
## 21 A H 21 0.2222222 3
## 30 B L 30 0.2222222 4
## 31 B L 31 0.2222222 4
## 39 B M 39 0.2222222 5
## 43 B M 43 0.2222222 5
## 46 B H 46 0.2222222 6
## 53 B H 53 0.2222222 6
getdata(warpbreaks, s)
## breaks wool tension ID_unit Prob Stratum
## 4 25 A L 4 0.2222222 1
## 9 67 A L 9 0.2222222 1
## 13 17 A M 13 0.2222222 2
## 14 12 A M 14 0.2222222 2
## 20 21 A H 20 0.2222222 3
## 21 24 A H 21 0.2222222 3
## 30 29 B L 30 0.2222222 4
## 31 19 B L 31 0.2222222 4
## 39 19 B M 39 0.2222222 5
## 43 21 B M 43 0.2222222 5
## 46 20 B H 46 0.2222222 6
## 53 16 B H 53 0.2222222 6
2 같이 보기[ | ]
3 참고[ | ]
편집자 Jmnote
로그인하시면 댓글을 쓸 수 있습니다.