tests/testthat/test-ss-ci.R

In emilopezcano/SixSigma: Six Sigma Tools for Quality Control and Improvement

library(SixSigma)
library(testthat)

#Confidence Interval for the mean

data <- ss.data.strings
alpha <- 0.05
sub <- "Guitar Strings Test | String Length"
xname <- "Length"
main <- "Confidence Interval for the mean"
digits <- 3

ci <- ss.ci(len, alpha=alpha, data=data,xname, main=main, digits=digits, sub=sub)

result <- unname(ci)

####################################################################
#Unit tests
#Author: Paula Martinez Vaquero
####################################################################

test_that("value of LL",{
  expect_equal(result,c(949.967364656452, 950.06404539833))
})

test_that("expect data type",{
  expect_type(result,"double")
})