degrees_of_freedom
Differences
This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revisionNext revision | Previous revisionNext revisionBoth sides next revision | ||
degrees_of_freedom [2020/04/09 04:00] – hkimscil | degrees_of_freedom [2020/04/11 18:06] – hkimscil | ||
---|---|---|---|
Line 69: | Line 69: | ||
* sd = 1.258306 | * sd = 1.258306 | ||
* n-1 대신 n을 사용했을 때는 0.9437293 | * n-1 대신 n을 사용했을 때는 0.9437293 | ||
- | |||
< | < | ||
- | k <- c(2, 3, 2, 4, 5, 5, 2, 2, 4, 1) | + | ############ |
- | set.seed(1024) | + | set.seed(1010) |
- | ks <- sample(k, 4) | + | n.pop <- 20 |
- | mean(ks) | + | k <- sample(1:20, n.pop, replace = T) |
- | sd(ks) | + | k.mean <- mean(k) |
- | (sd(ks)*3)/4 | + | k.pvar <- var(k)*((n.pop-1)/n.pop) ## population var(k) |
- | ######### | + | k.mean |
- | mean(k) | + | k.pvar |
- | sd(k) | + | ############ |
+ | n.samp <- 3 | ||
+ | ks <- sample(k, n.samp) | ||
+ | ks | ||
+ | ks.mean <- mean(ks) | ||
+ | ks.var <- var(ks) | ||
+ | ks.pvar <- var(ks)*((n.samp-1)/ | ||
- | </ | + | ks.mean ## sample mean |
- | + | ks.var ## sample variance | |
- | < | + | ks.pvar ## sample variance as population |
- | > k <- c(2, 3, 2, 4, 5, 5, 2, 2, 4, 1) | + | k.mean ## population mean |
- | > k | + | k.pvar ## population variance as pop |
- | [1] 2 3 2 4 5 5 2 2 4 1 | + | ############ |
- | > | + | |
- | > set.seed(1024) | + | |
- | > ks <- sample(k, 4) | + | |
- | > mean(ks) | + | |
- | [1] 2.25 | + | |
- | > sd(ks) | + | |
- | [1] 1.258306 | + | |
- | > (sd(ks)*3)/4 | + | |
- | [1] 0.9437293 | + | |
- | > | + | |
- | > sd(k) | + | |
- | [1] 1.414214 | + | |
- | > | + | |
- | > mean(k) | + | |
- | [1] 3 | + | |
</ | </ | ||
degrees_of_freedom.txt · Last modified: 2021/03/03 11:24 by hkimscil