basetest <- proptest_num(x=3, n=8, alternative="greater")
# vary the number of observations
hyperloop <- list(pi0 = c(basetest$pi0, 1-basetest$pi0,
basetest$x/basetest$n, 1-basetest$x/basetest$n))
# return all different tests
tts <- proptests(basetest, hyperloop=hyperloop)
# return all different random sampling functions
proptests(basetest, "X", hyperloop)
Run the code above in your browser using DataLab