# NOT RUN {
# Use the gradient arrangement method to create a matrix
# of individual risk probabilities for a 10x10 array.
# Depending on the specified probability, alpha level,
# and overall group size, simulation may be necessary
# in order to generate the vector of individual
# probabilities. This is done using the expectOrderBeta()
# function and requires the user to set a seed in order
# to reproduce results.
set.seed(1107)
p.vec1 <- expectOrderBeta(p = 0.05, alpha = 2, size = 100)
informativeArrayProb(prob.vec = p.vec1, nr = 10, nc = 10,
method = "gd")
# Use the spiral arrangement method to create a matrix
# of individual risk probabilities for a 5x5 array.
set.seed(8791)
p.vec2 <- expectOrderBeta(p = 0.02, alpha = 0.5, size = 25)
informativeArrayProb(prob.vec = p.vec2, nr = 5, nc = 5,
method = "sd")
# }
Run the code above in your browser using DataLab