## A3 is used for constructing the conventional X-bar chart
# with the sample standard deviation.
factors.cc(n=10, factor="A3")
## Unbiasing factor for the standard deviation
# using the sample standard deviation.
factors.cc(n=10, factor="c4")
# The above is the same as below:
c4.factor(n=10, estimator="sd")
## Unbiasing factor for the standard deviation
# using the sample range.
factors.cc(n=10, factor="d2")
# The above is the same as below:
c4.factor(n=10, estimator="range")
## Table B2 in Supplement B of ASTM (1951).
char = c("A","A1","A2","c2", "B1","B2","B3","B4", "d2","d3","D1","D2","D3","D4")
nn = 2L:25L
res=NULL
for(n in nn){tmp=NULL;for(ch in char) tmp=c(tmp,factors.cc(n,ch));res=rbind(res,tmp)}
rownames(res) = paste0("n=",nn)
round(res,4)
## Table 49 in Chapter 3 of ASTM (2010).
char = c("A","A2","A3","c4", "B3","B4","B5","B6", "d2","d3","D1","D2","D3","D4")
nn = 2L:25L
res=NULL
for(n in nn){tmp=NULL;for(ch in char) tmp=c(tmp,factors.cc(n,ch));res=rbind(res,tmp)}
rownames(res) = paste0("n=",nn)
round(res,4)
## Table 50 in Chapter 3 of ASTM (2010).
char = c("E2", "E3")
nn = 2L:25L
res=NULL
for(n in nn){tmp=NULL;for(ch in char) tmp=c(tmp,factors.cc(n,ch));res=rbind(res,tmp)}
rownames(res) = paste0("n=",nn)
round(res,3)
Run the code above in your browser using DataLab