kb <- k_factor_normal(n = 10, p = 0.9, conf = 0.95)
print(kb)
## [1] 2.35464
# This can be used to caclulate the B-Basis if
# the sample mean and sample standard deviation
# is known, and data is assumed to be normally
# distributed
sample_mean <- 90
sample_sd <- 5.2
print("B-Basis:")
print(sample_mean - sample_sd * kb)
## [1] B-Basis:
## [1] 77.75587
Run the code above in your browser using DataLab